[ Rode @ 15.05.2011. 18:09 ] @
Oprostite za jedno trivijalno pitanje. Kako upisati string S u TstringList sa vodecim nulama fiksne duzine 15 karaktera.
[ savkic @ 16.05.2011. 00:39 ] @
> 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')

[ dogriz @ 16.05.2011. 06:26 ] @
Za string mislim da može ovako nekako:
Code (delphi):

uses
  StrUtils;
...
  s := Format('%15s', [AnsiRightStr('000000000000000' + s, 15)]);
...
 

[ Rode @ 16.05.2011. 15:58 ] @
Momci,
hvala, hvala, sta drugo reci Velikim ljudima.