strings teilweise auslesen

[m3zz0m1x]

Ich wollte fragen, wie man strings bis zu einem bestimmten zeichen (z,B bis zu einem simicolon) ausließt.
im konkreten fall soll ein schachspiel aus einer textdatei 4 voneinander getrennte zahlen auslesen (alte x koordinate, alte y koordinate; neues x, neues y)
Ich weiß das dies möglich istleider fällt mir kein weg ein es zu tun^^
danke schonmal
mfg mezzo

[shokwave]

Hi,

was du brauchst sind die Funktionen Copy(), Pos() und Delete().

[theo]

Es geht auch fast ohne das Hirn zu belästigen :

Code: Alles auswählen

procedure TForm1.Button1Click(Sender:TObject);
var sl:TStringList;
i:integer;
begin
  sl:=TStringList.Create;
  sl.Delimiter:=';';
  sl.DelimitedText:='11;22;33;44';
  for i:=0 to sl.Count-1 do Memo1.Lines.add(sl[i]);
  sl.free;
end;

[felix96]

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var ganzer_string, string_bis_semikolon: string;
begin
 ganzer_string := 'Hallo;m3zz0m1x';
 string_bis_semikolon := copy(ganzer_string,1,pos(';',ganzer_string)-1);//-1 wenn das Semikolon auch weg soll
 showmessage(string_bis_semikolon);
 //  string_bis_semikolon = hallo
end;

[m3zz0m1x]

ok danke
das is genau da was ich wissen wollte