Moin moin, ich möchte in einem Text nach einem Zeichen ('#') suchen und die 4 Werte darunter jeweils in eine Variable umwandeln, dummerweise habe ich absolut keinen Plan wie das geht.
Delphi-Quellcode:
i:=0;
AssignFile(Datei, 'Datei.txt');
Reset(Datei);
while not EoF(Datei) do
begin
ReadLn(Datei,i);
inc(i);
i := Pos('#', 'Datei.txt');
if i = 0 then ShowMessage('Fataler Fehler')
else
begin
inc(i);
bezeichnung:=Datei[i];
ListBox1.Items.Add(bezeichnung);
inc(i);
geschwindigkeit:=Datei[i];
inc(i);
kaliber:=Datei[i];
inc(i);
masse:=Datei[i];
end;