> Oprostite za jedno trivijalno pitanje. Kako upisati string S u TstringList sa vodecim nulama fiksne duzine 15 karaktera.
Code:
Ako formatiraš broj onda: Format('%.15d', [20]);
Ako formatiraš string onda:
function FormatStrLen(const AValue: string; const ALen: Smallint; const APadChar: Char = ' '): string;
begin
// Formatiramo rezultat tako da ispred prosledjene vrednosti
// dodamo potreban broj APadChar do zeljene duzine.
// Npr. FormatStrLength('A', 5, ' ') -> ' A'; FormatStrLength('1', 5, '0') -> '00001'
Result := StringOfChar(APadChar, ALen - Length(AValue)) + Copy(AValue, 1, ALen);
end;
FormatStrLen('Proba', 15, '0')