> 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;
It is really my error. Thanks! -- Lukas Gebauer. E-mail: [EMAIL PROTECTED] http://synapse.ararat.cz/ - Ararat Synapse - TCP/IP Lib. ------------------------------------------------------------------------- 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
