@kagi3624
wie wäre es mit dem Klassiker:
Delphi-Quellcode:
procedure TForm1.Test;
var
e, s: string;
begin
s:='123456';
e:=LeftStr(s,2);
Memo1.Lines.Add(e);
end;
Die Function LeftStr() ist Bestandteil der
Unit StrUtils (D6, D7).
Im Aktuellem Delphi: System.StrUtils