主页
Top.Mail.Ru Yandeks.Metrika
论坛:“主要”;
当前存档:2002.01.08;
下载:[xml.tar.bz2];

向下

HELP! 找到类似的分支


Alligator   (2001-12-17 11:46) [0]

function SelectChars(s:ShortString; a:Integer; b:Integer):ShortString;
VAR
我:整数;
ts:ShortString;
tp:PChar;
开始
ts:=“”;
StrPCopy(tp,s);
对于i:= a到a + b做ts:= ts + tp [i];
结果:= ts;
结束;

这个功能无法消化很长的句子。它(功能)在看到长句时会立即杀死我的编程。
我该怎么解决这个???
感谢早期!



gek   (2001-12-17 11:51) [1]

那么,为什么要使用ShortString
使用String



Alligator   (2001-12-17 12:26) [2]

随着String编程也死了,我显然不会尝试其他任何东西,可以有另一个功能或选项如何从文本中删除你需要的东西???



McSimm   (2001-12-17 12:38) [3]

1。 PChar的内存未分配。
2。 为什么PChar在这里呢?
3。 为什么要烦恼这个功能呢? 如果它正在复制子字符串,那么
function Copy(S; Index,Count:Integer):string;



Alligator   (2001-12-17 12:57) [4]

啊......你误解了我!



gek   (2001-12-17 13:01) [5]

他们不明白的是什么? 解释为什么所有这些业务都是必要的?



Alligator   (2001-12-17 13:34) [6]

好吧,假设我有一段长文本,我需要检查或粘贴前两个字母。
-memo1.lines.add(SelectChars(“long text chunk”,0,1))
也就是说,正如你所理解的那样,只需要在备忘录中输入两个字母,从0开始到1结尾,这个功能正常,但不是长文本,限制在255字符的某处,但是我无法理解的限制。



Digitman   (2001-12-17 13:37) [7]

memo1.lines.add(复制(“一段长篇文章”,1,1)) - 嗯,你觉得哪些不舒服? 做你需要的,没有任何额外的“褶边”



Mbo   (2001-12-17 13:41) [8]


关于复制功能已经说过了。
在你的,除了5指定的错误之外,还描述了返回shorttring,
和结果 - PChar



Alligator   (2001-12-17 18:38) [9]

非常感谢您的帮助! 现在一切正常。



Страницы: 1 整个分支

论坛:“主要”;
当前存档:2002.01.08;
下载:[xml.tar.bz2];

楼上





内存:0.57 MB
时间:0.035 c
1-22107
亚历山大
2001-12-19 01:45
2002.01.08
如何启动程序立即在主窗体上显示另一个?


3-21966
ZG
2001-12-03 12:42
2002.01.08
为什么我的所有问题都已消失。 不得不重复自己如何在一个字段中搜索类型:书面天花板,我需要找到


7-22451
德米特里
2001-09-23 12:36
2002.01.08
指令{$ I}


3-21982
Dush
2001-12-06 12:37
2002.01.08
将客户端连接到数据库


3-21905
nic406
2001-11-28 04:21
2002.01.08
救命啊! 我选择*来自T1 - >刷新 - >错误(ADODataSet)





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法语
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 淡米尔文 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский