Ist erst mal eine Sandbox, in der ich verschiedene Datenbank-Sachen teste. NoteOutput() gibt nur den übergebenen String in einer ListBox und einer Memo aus.
Delphi-Quellcode:
procedure TForm_Main.Button_ConnectClick(Sender: TObject);
begin
if FileExists(ZConnection_Main.Database)
then
ZConnection_Main.Connect;
With ZQuery_Main
do
begin
SQL.Clear;
SQL.Add('
SELECT "pro_main"."Sorter","pro_main"."Title","pro_main"."ExePath" FROM "pro_main" ORDER BY "pro_main"."Sorter"');
Open;
// verschiedene Ausgaben getestet, die Daten vom ersten Datensatz werden ausgegeben
Edit_Title.Text := ZQuery_Main.Fields.Fields[1].Text;
Edit_Sorter.Text := Fields.Fields[0].Text;
Edit_ExePath.Text := ZQuery_Main.Fields.Fields[2].AsString;
ListBox_Main.Items.Add(ZQuery_Main.Fields.Fields[1].AsString);
NoteOutput('
Record number: ' + IntToStr(RecNo));
// ist 1
Next;
// Fehler
ZQuery_Main.RecNo := RecNo + 1;
ListBox_Main.Items.Add(ZQuery_Main.Fields.Fields[1].AsString);
// Info
if Bof
then
NoteOutput('
First record.');
// wird nicht ausgegeben
if Eof
then
NoteOutput('
Last record.');
// wird nicht ausgegeben
NoteOutput(IntToStr(RecordCount) + '
records.');
// 7 Datensätze
NoteOutput(IntToStr(FieldCount) + '
fields.');
// 3 Felder
end;
end;