最新评论
re: 今天看到一个blog上讨论字符串分割函数,一时兴起,自己写了一个 低调一贱男(khan) 2004-09-14 12:27
调用方式如下:
procedure TMainForm.Button1Click(Sender: TObject);
var strs: TStrings;
str: string;
begin
Str := 'a#0b#0c#0d#0e#0f#0g#0h#0i';
try
strs := TStringList.Create;
cutString(strs, str,'#0');
Memo1.Lines := strs;
finally
freeandnil(strs);
end;
end;
procedure TMainForm.Button1Click(Sender: TObject);
var strs: TStrings;
str: string;
begin
Str := 'a#0b#0c#0d#0e#0f#0g#0h#0i';
try
strs := TStringList.Create;
cutString(strs, str,'#0');
Memo1.Lines := strs;
finally
freeandnil(strs);
end;
end;
re: VCL的诞生和设计原理(摘抄inside vcl) dudu 2004-06-15 19:26
请将你转载的文章放在转载区。
