Strings Delphi

  1. Home
  2. Delphi
  3. Strings
  4. Stringin solunu veya sağını boşlukla doldurma
Function StringLeftJustify(Space:Word;Str:String):String;
Var
str_all:String;
i:Word;
Begin
str_all:='';
IF Length(Str) Begin
For i:=1 To Space-Length(Str) Do
Begin
Insert(' ',str_all,1);
end;
str_all:=Concat(Str, str_all);
Result:=str_all;
end
else
Result:=Str;
end;
Function StringRigthJustify(Space:Word;Str:String):String;
Var
str_all:String;
i:Word;
Begin
str_all:='';
IF Length(Str) Begin
For i:=1 To Space-Length(Str) Do
Begin
Insert(' ',str_all,1);
end;
str_all:=Concat(str_all, Str);
Result:=str_all;
end
else
Result:=Str;
end;