Listbox splitten!

[thiagojonas]

Alle klar danke.
Für alle mit dem selben problem:

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var flug: string;
position:integer;
target:string;
begin
flug := '001';
Position := Pos(flug, '001 Wayne');
Target := Copy(flug,position);
if Position <> 0 then
    ShowMessage('gefunden an Position: '  + target)
  else
    ShowMessage('nicht im String vorhanden');
end;

Danke nochmal an euch alle!

[Teekeks]

ist ja lustig: jetzt gibt dein Programm folgendes aus wenn der string gefunden wird:
"'gefunden an Position: 001" aus wobei ja 001 der gesuchte String ist und nicht die Position... aber ansonsten...

[thiagojonas]

Aber genau so wollte ich es haben.

[thiagojonas]