[es] - Fiksna duzina stringa sa vodecim nulama

Rode
Miodrag Krunić
Nezaposlen
Sokolac

Član broj: 211606
Poruke: 8
*.111.209.0

+1 Profil

Fiksna duzina stringa sa vodecim nulama

^{15.05.2011. u 18:09 - pre 157 meseci}

Oprostite za jedno trivijalno pitanje. Kako upisati string S u TstringList sa vodecim nulama fiksne duzine 15 karaktera.

Kruno_S

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Fiksna duzina stringa sa vodecim nulama

^{16.05.2011. u 00:39 - pre 157 meseci}

> 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')

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

dogriz
Sombor

Član broj: 29744
Poruke: 259
*.dynamic.sbb.rs.

Sajt: dogriz.blogspot.com

+6 Profil

Re: Fiksna duzina stringa sa vodecim nulama

^{16.05.2011. u 06:26 - pre 157 meseci}

Za string mislim da može ovako nekako:

Code (delphi):

uses

  StrUtils;

...

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

...

Odgovor na temu

Rode
Miodrag Krunić
Nezaposlen
Sokolac

Član broj: 211606
Poruke: 8
*.teol.net.

+1 Profil

Re: Fiksna duzina stringa sa vodecim nulama

^{16.05.2011. u 15:58 - pre 157 meseci}

Momci,
hvala, hvala, sta drugo reci Velikim ljudima.

Kruno_S

Odgovor na temu