Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#4

Re: Textdatei beim laden RICHTIG anzeigen

  Alt 3. Jan 2007, 21:11
Hi,

es muss kein "zweites StringGrid" sein - es genügt eine StringList. Und wenn du beim Speichern statt der Leerstelle ein Komma verwendest, dann kannst du die Zellen auch nach folgendem Prinzip laden:

Delphi-Quellcode:
procedure LoadGrid(grid: TStringGrid; fn: TFileName);
var
  iRow: Integer;
  sl: TStringList;
begin
  sl := TStringList.Create;
  sl.LoadFromFile(fn);
  grid.RowCount := sl.Count;
  for iRow := 0 to Pred(sl.Count) do
  begin
    if iRow = 0 then
      with TStringList.Create do
      begin
        CommaText := sl[iRow];
        grid.ColCount := Count;
        Free;
      end;
    grid.Rows[iRow].CommaText := sl[iRow];
  end;
  sl.Free;
end;
Grüße vom marabu
  Mit Zitat antworten Zitat