Hallo, ich habe folgendes Problem:
Ich wollte eine procedure erstellen, damit ich das Programm ein wenig verkleinern und dadurch übersichtlicher machen kann!
Wenn ich jetzt aber den funktionierenden Quelltext in eine procedure packe, meint er z.B. plötzlich:
Undefinierter Bezeichner: 'Listbox1' obwohl diese vorhanden ist. Ansonsten erkennt er noch die anderen Komponenten nicht(Listbox2 und table2(Datenbank), und schreibt haufenweise, dass "Operator oder Semikolon fehlt". Der gleiche Abschnitt(ausgenommen halt die variablen in der Kopfzeile) hat aber in "Button1.Click" ohne Probleme funktioniert. Hier der Quelltext:
Delphi-Quellcode:
procedure modell(index: Integer; var firma: String);
var modell, marke: String;
i, anzahl: Integer;
begin
If (Listbox1.Items.Strings[Listbox1.ItemIndex] = firma) AND (RadioGroup1.ItemIndex = index)
then
begin
anzahl := table2.RecordCount;
for i := 1 to anzahl do
begin
modell := table2.FieldByName('Mofa').AsString;
marke := table2.FieldByName('Marke').AsString;
if (modell <> '') AND (marke = firma)
then Listbox2.Items.add(modell);
table2.next;
end;
end;
end;
Der ganze Quelltext greift auf ne normale Datenbank zu.
Es kann sein, dass die Lösung ganz simpel ist, aber ich befasse mich noch nicht solange mit Delphi. Ich hoffe ihr könnt mir helfen!