function PadString(const Value: AnsiString; len: integer; Pad: AnsiChar):
AnsiString;
begin
if length(value) >= len then
Result := Copy(value, 1, len)
else
//SZ
//Result := Result + StringOfChar(Pad, len - length(value));
Result := Value + StringOfChar(Pad, len - length(value));
end;
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys - and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
