TEST

發文回覆瀏覽次數：1028

推到 Plurk!

推到 Facebook!

chengsam
一般會員

發表：2
回覆：1
積分：0
註冊：2009-05-19

發送簡訊給我

#1 引用回覆回覆

發表時間：2010-04-27 09:53:46

IP:59.124.xxx.xxx 訂閱

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
Memo1.Lines.Clear;
Memo2.Lines.Clear;
for i:= 1 to 100 do
begin
Memo1.Lines.Add(Concat('Test','1',IntToStr(i)));
Memo2.Lines.Add('Test' '2' IntToStr(i));
end;
end;
[/code]

系統時間：2024-04-20 0:01:42

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！