Teilweise Strings übertragen

[Binärbaum]

Nur so am Rande:
Notfalls hätte man es auch mit copy realisieren können:

Delphi-Quellcode:

function Links(aStr: string; count: Cardinal): string;
begin
  Result:= copy(aStr, 1, count);
end;

function Rechts(aStr: string; count: Cardinal): string;
var ls: Integer;
begin
  ls:= length(aStr);
  Result:= copy(aStr, ls - count +1, ls);
end;

MfG
Binärbaum