Mega Code Archive

 

Categories / Delphi / Strings

 

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)<Space Then 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)<Space Then 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;