請問連接字串 |
|
尚未結案
|
|
ruh
一般會員   發表：4 回覆：4 積分：1 註冊：2004-05-03 發送簡訊給我 |
|
|
jest0024
高階會員  發表：11 回覆：310 積分：224 註冊：2002-11-24 發送簡訊給我 |
|
|
ruh
一般會員 發表：4 回覆：4 積分：1 註冊：2004-05-03 發送簡訊給我 |
引言:謝謝這位大哥^^ 想順便請教一下 我現在有一個StringGrid 原本是想把cell裡面的內容輸出到.txt 有沒有辦法把整個StringGrid輸出到檔案.txt去阿??? 多謝摟^^ armuro引言: 請問如何把char 連在 string後面呢 strcat的引數都要是Pchar.....@@" 我現在有一堆string和char 想要放在memo的同一行裡 不知道該怎麼做 謝謝^^ armuroprocedure Test var s:String; c1,c2:Char; begin s:='ABCD'; c1:='E'; c2:='F'; Memo1.Lines.Add(s c1 c2); end;ABCD分開看的懂，連起來像鬼劃符~~!!!
------
armuro |
|
jest0024
高階會員 發表：11 回覆：310 積分：224 註冊：2002-11-24 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
S:TMemoryStream;
begin
With StringGrid1 do begin
S:=TMemoryStream.Create;
S.Write(RowCount,Sizeof(RowCount));
S.Write(ColCount,Sizeof(ColCount));
for i:=0 to RowCount-1 do Rows[i].SaveToStream(S);
S.SaveToFile('C:\Test.txt');
S.Free;
end;
end; procedure TForm1.Button2Click(Sender: TObject);
var
i,Rl,Cl:Integer;
S :TMemoryStream;
Item :TStringList;
begin
With StringGrid1 do begin
S:=TMemoryStream.Create;
S.LoadFromFile('C:\Test.txt');
S.Read(Rl,Sizeof(Rl));
S.Read(Cl,Sizeof(Cl));
RowCount:=Rl;
ColCount:=Cl;
Item:=TStringList.Create;
Item.LoadFromStream(S);
for i:=0 to Item.Count-1 do Cells[i mod Cl,i div Cl]:=Item[i];
Item.Free;
S.Free;
end;
end; ABCD分開看的懂，連起來像鬼劃符~~!!!
|
|
ruh
一般會員 發表：4 回覆：4 積分：1 註冊：2004-05-03 發送簡訊給我 |
多謝這位大哥喔~~完全有幫助阿
引言:
armuro
------
armuro |
發表時間：2004-05-28 22:57:15
IP:140.113.xxx.xxx 未訂閱
系統時間：2024-05-04 10:47:10
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |