Wenn ich das Fenster aufrufen will gibt es hier immer einen Fehler:
Delphi-Quellcode:
procedure TForm1.Panel3Click(Sender: TObject);
begin
try
texter := ComboBox1.Text + '.db';
if FileExists(texter) then
begin
Form12.Show;
end
else
Form11.Show;
except
Form9.Show;
end;
end;
bei mir kommt dann immer: Unbekannte Datenbank
Alias Klasse5.db.
Dein Code sieht bei mir jetzt so aus:
Delphi-Quellcode:
procedure TForm12.FormShow(Sender: TObject);
begin
ListBox1.Clear;
with TQuery.Create(self)
do
begin
DatabaseName := Form1.texter;
// wie heißt die bei dir?
SQL.Text := '
SELECT DISTINCT unit FROM test ORDER BY unit';
Open;
while not Eof
do
begin
ListBox1.Items.Add(FieldByName('
UNIT').AsString);
Next;
end;
Close;
Free;
end;
end;