Stringgrid immer die erste Zeile in Datei schreiben

[capo]

Hallo,
irgendwie hab ich es grad mit Stringgrids.
Frage:
Wie kann ich beim Stringgrid immer die erste Zeile in eine Datei schreiben/hinzufügen?
Gefunden habe ich das hier, bekomme da nur nicht das Stringgrid rein:

Delphi-Quellcode:

function AppendOrWriteTextToFile(FileName : TFilename; WriteText : string): boolean;
var
  f : Textfile;
begin
  Result := False;
  AssignFile(f, FileName);
  try
    if FileExists(FileName) = False then
      Rewrite(f)
    else
    begin
      Append(f);
    end;
    Writeln(f, WriteText);
    Result := True;
  finally
    CloseFile(f);
  end;
end;

// Sample Source...
procedure TForm1.Close1Click(Sender : TObject);
var
  dir, log : string;
begin
  dir := ExtractFilePath(Application.Exename);
  log := 'Last Programm Termination: ' + DateTimeToStr(now);
  AppendOrWriteTextToFile(dir + '\logfile.txt', log)
end;

gruss

vom capo

[Mavarik]

Hi

Was hat das Logfile schreiben mit einem Stringgrid zu tun?

Kannst Du Deine Frage nochmal genauer formulieren?

Frank :gruebel:

[capo]

Das Logfile hat damit nichts zu tun, ist nur ein Beispiel was ich gefunden habe.
In meinem Projekt ändert sich jede 1/2 Sekunde der Inhalt der ersten Zeile in meinem Stringgrid.
Diese Änderungen will ich in einer Datei speichern.
Dachte das ich das so ähnlich machen kann wie in dem gtezeigten Beipiel.

gruss vom capo

[MarcoWarm]

Wie wär es damit?

Delphi-Quellcode:

AppendOrWriteTextToFile(dir + '\logfile.txt',StringGrid1.Rows[1].CommaText);

[capo]

damit klappt es wunderbar, vielen Dank.
Ich denke manchmal viel zu umständlich.
gruss vom capo