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};