habs schon gelöst mit del und copy.
habe es bei der konkurrenz gefunden. da gab es ein tutorial über die stringverarbeitung
Delphi-Quellcode:
var StringList:TStringList;
posi:integer;
s:string;
begin
StringList := TStringList.Create;
try
StringList.LoadFromFile('pfad\project1.ini');
s:=StringList.Text;
delete(s, 1, pos('0="Running - ', s) + length('0="Running - ') - 1);
label2.caption := copy(s, 1, pos('"', s) - 1);
delete(s, 1, pos('(current Level: ', s) + length('(current Level: ') - 1);
label4.caption := copy(s, 1, pos(')"', s) - 1);
finally
StringList.free;
end;
end;
Edit
Hatte jetzt zwar kleine Probleme da Werte sich ändern und diese nicht ersetzt wurden konnte.
Also habe ich dann einfach die Zeilen gelöscht.
copy(s, 1, 28);
Danke dir trotzdem nochmal für deine Hilfe
Hätte da noch ne Frage. Und zwar habe ich jetzt 5 Stück ersetzt was auch funktioniert. Allerdings wenn ich das mit 6 Stück machen will ist der letzte immer ausgeblendet, also unsichtbar. Warum ist das so?