herausfinden ob das erste zeichen in einer listbox eine 1,2,

[aaron]

wie kann ich herausfinden, ob das erste zeichen in einer listbox eine 1,2,3,4 oder 5 ist...

[Yheeky]

Hi Aaron!

Das geht so:

Code:

const
  SuchendeZahl = '12345'; // Hier kommen die Zahlen rein, die du suchen möchtest

...

procedure TForm1.Button1Click(Sender: TObject);
var I, J: byte;
begin
for I := 0 to ListBox1.Items.Count-1 do
    begin
    for J := 1 to Length(SuchendeZahl) do 
        begin
        if Copy(ListBox1.Items[I],0,1) = SuchendeZahl[J] then
        ShowMessage('"' + SuchendeZahl[J] + '" gefunden in Zeile: ' + IntToStr(I+1));
        end;
    end;

end;

Gruß Yheeky

[Gregor]

wenn ich die frage erweitern düfte: kann man an diese stelle bildereinbinden warscheinlich nicht, aber gibts solche möglichkleiten mir anderen objekten die aber nicht zu schwer zu programmieren sein sollten

[aaron]

@Yheeky
danke, das funktioniert sehr gut

[aaron]

noch ne frage, wie kann ich nur eine message für die gerade ausgewählte zeile in der listbox anzeigen...?

[Daniel B]

Hallo aaron,

in der OnClick-Prozedur der ListBox, schreibst Du folgendes:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  ShowMessage(ListBox1.Items.Strings[i]);
end;

Wobei i der Index des gewünschten Eintrages ist.

Grüsse, Daniel

Nachtrag: Das nächste mal Bitte ein neuen Thread für eine neue Frage aufmachen. Danke!

[aaron]

das sollte keine neue frage sein, bezog sich auf die erste frage, dort wird ja für jede zeile eine message ausgegeben, sollte aber nur seine wenn eine ausgewählt wurde. auweja, drücke ich mich so undeutlich aus...

[aaron]

hat sich erledigt, habs rausgefunden
vielen dank an alle