Wie gibt man einen Substring aus?

[ghubi01]

@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