請問一下，TStringGrid要如何載入文字檔呢？

用 TStringAlignGrid 這個 Component 吧! 它有 LoadFromFile/SaveToFile 的 method 網址: http://www.hoerstemeier.com/grid.htm    --- Have you ever wondered what it would be like?

這是我在網路剛看到的，不知道要怎樣用他， 例如：a,b資料，以逗號隔開作為識別StrigGrid的兩個欄位內容。 希望大大幫幫忙！ procedure File2StringGrid(StringGrid: TStringGrid; FileName: String); var F: TextFile; Tmp, x, y: Integer; TmpStr: string; begin AssignFile(F, FileName); Reset(F); Readln(F, Tmp); StringGrid.ColCount:=Tmp; Readln(F, Tmp); StringGrid.RowCount:=Tmp; for x:=0 to StringGrid.ColCount-1 do for y:=0 to StringGrid.RowCount-1 do begin Readln(F, TmpStr); StringGrid.Cells[x,y]:=TmpStr; end; CloseFile(F); end;

qoo1234 粉用心在學程式喔！請大家多多幫忙！    

假設文字檔內每行只有一個逗號

procedure File2StringGrid(StringGrid: TStringGrid; FileName: String);
var sl: TStringList;
  Tmp, i, iPos: Integer; 
  TmpStr: string; 
begin 
  sl := TStringList.Create;
  try
    sl.LoadFromFile(FileName);
    StringGrid.ColCount := sl.Count;
    StringGrid.RowCount := 2;
    for i := 0 to sl.Count -1 do begin
      TmpStr := sl.Strings[i];
      iPos := Pos(',', TmpStr);
      StringGrid.Cells[i, 0] := Copy(TmpStr, 1, iPos-1);
      StringGrid.Cells[i, 1] := Copy(TmpStr, iPos 1, Length(TmpStr)-iPos);
    end;
  finally
    sl.Free;
  end;
end;

--- Have you ever wondered what it would be like?

To hagar老大！問一下，這一行會不會連抬頭都改掉..嘿嘿！ for i := 0 to sl.Count -1 do begin    To qoo1234:    Tmp: Integer;  依據hager版主的寫法好像也用不到喔！ 發表人 - flyup 於 2003/03/05 20:24:11

引言: To hagar老大！問一下，這一行會不會連抬頭都改掉..嘿嘿！ for i := 0 to sl.Count -1 do begin To qoo1234: Tmp: Integer; 依據hager版主的寫法好像也用不到喔！

1.依需求修改一下咩! :) 2.Sorry! 沒改到. 3.如果以後 StringGrid 的內容要存文字檔的話 試試用上述的 StringAlignGrid 做 它是以 #9 字元來區隔每個 Cell 的資料 小弟現在都是用它 --- Have you ever wondered what it would be like?

引言:

引言: To hagar老大！問一下，這一行會不會連抬頭都改掉..嘿嘿！ for i := 0 to sl.Count -1 do begin To qoo1234: Tmp: Integer; 依據hager版主的寫法好像也用不到喔！

1.依需求修改一下咩! :) 2.Sorry! 沒改到. 3.如果以後 StringGrid 的內容要存文字檔的話 試試用上述的 StringAlignGrid 做 它是以 #9 字元來區隔每個 Cell 的資料 小弟現在都是用它 --- Have you ever wondered what it would be like?

請問，這個元件可以像 DBGrid1 一樣，有 MultiSelect（多選）的功能嗎 我一直測試不出來 哪位高手幫幫忙

引言: 請問，這個元件可以像 DBGrid1 一樣，有 MultiSelect（多選）的功能嗎 我一直測試不出來 哪位高手幫幫忙 < face="Verdana, Arial, Helvetica"> < >～測出來在跟我說喔～< > 另外相關的文章： http://delphi.ktop.com.tw/topic.php?TOPIC_ID=36472 網海無涯，學無止境! 發表人 - qoo1234 於 2003/12/04 18:09:25

小弟測了一下, 可以 MultiSelect 只要 Options 中的 goRowSelect 設 True 複選的時候, 按下 shift 來選 不過沒辦法跨 row 的 MultiSelect, 一定要連續的 --- Everything I say is a lie.