StringGrid aus Form2 in Form1 abspeichern

[DeddyH]

Füg in der Ereignisprotokoll-Unit diese Zeile vor der implementation-Zeile ein:
procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);

[dGeek]

Bischen OT aber:

Delphi-Quellcode:

if result = true then // Info 1
 Grid.Row := I
else
 ShowMessage('Datensatz nicht gefunden!' +#13#13+ 'Record not Found!'); // Info 2

Gewöhn dir am besten gleich zu Anfang ab, auf True oder False zu vergleichen (Info 1).
Schreib lieber: "if Result then" und "if not Result then".

Benutz besser "sLineBreak" statt #13#13 bzw #13#10.

Und immer schön auf Groß- und Kleinschreibung achten. Delphi ist da relativ entspannt. Aber solltest du später mal zu einer anderen Sprache wechseln oder sie nur kurzeitig verwenden, wird nichts funktionieren, wenn du die Groß- und Kleinschreibung nicht beachtest.

Die Deklaration von sLineBreak sieht so aus (ist nur eine Info und soll nicht kopiert werden oder so):

Delphi-Quellcode:

const
 sLineBreak = {$IFDEF POSIX} AnsiChar(#10) {$ENDIF}
 {$IFDEF MSWINDOWS} AnsiString(#13#10) {$ENDIF};