Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var
sl: TStringlist;
position: Byte;
rang: string;
s :String;
i:Byte;
begin
sl:=TStringList.create;
sl.loadfromFile('C:\Platz.txt');
for i:=0 to sl.count -1 do
begin
s:=sl[i];
if pos('Peter',s) <> 0 then
rang:=copy(s,pos(' ',s)+1,length(s));
// tu was mit dem Rang
end;
// button4.Caption := sl.string[pos];
sl.free;
end;
ein wenig umgebaut, unter der Annahme das der Name und Rang in einer Zeile stehen und
durch ein Leerzeichen getrennt sind.
sl.IndexOF liefert nur eine Position wenn der gesamte String übereinstimmt, mit einem
Teilstring wie z.B. Peter funktioniert das nicht.
pos ist eine Funktion welche die Position eines Teilstring in einem String zurückgibt.
Grüße
Klaus