hi klaus,
danke für die schnelle Antwort, leider funktioniert es irgendwie nicht.
Ich stell mal die Prozedur rein.
Bei "pos:= ..usw" kommen drei Fehlermeldungen und bei rang:= .. ebenfalls
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var
sl: TStringlist;
position: Byte;
rang: string;
begin
sl:=TStringList.create;
sl.loadfromFile('C:\Platz.txt');
pos := sl.strings.indexof('Peter');
rang := sl.Strings[pos][' ',string)+1,length(string));
// position := pos(Form1.Caption, sl); // position ist nun 13
button4.Caption := sl.string[pos];
sl.free;
end;