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

[elixir84]

(12-11-2018, Saat: 15:15)yhackup Adlı Kullanıcıdan Alıntı: Bende ek soru sorayım en hızlı cevaplayana +4


verdiğim stringi sağdan veya soldan verdiğim karakter ile tamamlayacak.

function LeftPad(S: string; Ch: Char; Len: Integer): string;
function RightPad(S: string; Ch: Char; Len: Integer): string;

Function tana.StringPad(
  InputStr,//tamamlanacak metin
 FillChar: String;//tamamlama karakteri
 StrLen: Integer;//uzunluk
 StrJustify: Boolean): String;//tamamlama yönü
Var
 TempFill: String;
 Counter : Integer;
Begin
 If Not (Length(InputStr) = StrLen) Then
 Begin
   If Length(InputStr) > StrLen Then
   Begin
     InputStr := copy(InputStr,1,StrLen);
   End
   Else
   Begin
     TempFill := '';
     For Counter := 1 To StrLen-Length(InputStr) Do
     Begin
       TempFill := TempFill + FillChar;
     End;
     If StrJustify Then
     Begin
       InputStr := InputStr + TempFill;
     End
     Else
     Begin
       InputStr := TempFill + InputStr ;
     End;
   End;
 End;
 Result := InputStr;
End;