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

[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