[+10 Puan] String Manipülasyon İşlemleri

[yhackup]

farklı bir bakış,

function SolDanAl(Text: String; Len: Integer): String;
var
 i: integer;
begin
 for I := 1 to Len do
   Result := Result + Text[i];
end;

---

function SagDanAl(Text: String; Len: Integer): String;
var
  i: integer;
begin
  for I := Length(Text) downto Len do
    Result := Text[i]+ Result ;
end;