Ich habe ein merkwürdiges Phänomen:
Ich habe eine Variable namens AktiveLade vom Typ TListBox.
Gebe ich im Quelltext AktiveLade. ein und warte (wie ich es hier im Forum gelehrt wurde ) erscheint als mögliche Auswahl u.a. SelectFirst.
Versuche ich die Procedure AktiveLade.Selectfirst jedoch auzurufen meckert der Compiler und behauptet: Error: identifier idents no member "SelectFirst"
hier die ganze Routine, vielleicht ist da ein Fehler zu erkennen:
Code: Alles auswählen
procedure TForm1.Button5Click(Sender: TObject);//Einzeln Entnehmen
var i, schondrin : word;
AktiveLade : TlistBox;
ALText : string;
begin
for i:=0 to PageControl1.ActivePage.ControlCount-1 do
if PageControl1.ActivePage.Controls[i] is TListBox then
begin
AktiveLade := TlistBox(PageControl1.ActivePage.Controls[i]);
If (AktiveLade.GetSelectedText<> '') then
begin
ALText := Anzahlabschneiden(AktiveLade.GetSelectedText);
schondrin := Anzahlextrahieren(AktiveLade.GetSelectedText);
end;
end;
If (AktiveLade.GetSelectedText<> '') and (schondrin = 1) then
begin
AktiveLade.Items.Delete(AktiveLade.ItemIndex);
AktiveLade.SelectFirst;
end
else
If (AktiveLade.GetSelectedText<> '') then
begin
AktiveLade.Items.Delete(AktiveLade.ItemIndex);
AktiveLade.Items.Add(Anzahlanfuegen(ALText,schondrin-1));
end;
end;
Danke für die Aufmerksamkeit.