Hilfe fürs schreiben in Dateien

[Alexander]

Du willst Daten aus einem Stringgrid in eine Datei eportieren odeR?
Naja das ist relativ einfach, du kannst dir einfach die Textdatei ebenfalls wie eine Tabelle aufbauen. Am besten geht das, indem du zb die spalten nach ein ander in eine DAtei speicherst...
Hier mal ein Beispiel:

Delphi-Quellcode:

procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName); 
var 
  f:    TextFile; 
  i, k: Integer; 
begin 
  AssignFile(f, FileName); 
  Rewrite(f); 
  with StringGrid do 
  begin 
    // Write number of Columns/Rows 
    Writeln(f, ColCount); 
    Writeln(f, RowCount); 
    // loop through cells 
    for i := 0 to ColCount - 1 do 
      for k := 0 to RowCount - 1 do 
        Writeln(F, Cells[i, k]); 
  end; 
  CloseFile(F); 
end; 

// Load a TStringGrid from a file 

procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName); 
var 
  f:          TextFile; 
  iTmp, i, k: Integer; 
  strTemp:    String; 
begin 
  AssignFile(f, FileName); 
  Reset(f); 
  with StringGrid do 
  begin 
    // Get number of columns 
    Readln(f, iTmp); 
    ColCount := iTmp; 
    // Get number of rows 
    Readln(f, iTmp); 
    RowCount := iTmp; 
    // loop through cells & fill in values 
    for i := 0 to ColCount - 1 do 
      for k := 0 to RowCount - 1 do 
      begin 
        Readln(f, strTemp); 
        Cells[i, k] := strTemp; 
      end; 
  end; 
  CloseFile(f); 
end;

Ich muss dazu sagen, der Source ist nciht von mir, Autor unbekannt...
(Meinen Source finde ihc nicht mehr...)