Oprostite za jedno trivijalno pitanje. Kako upisati string S u TstringList sa vodecim nulama fiksne duzine 15 karaktera.
Potpis
Kruno_S
Fiksna duzina stringa sa vodecim nulama
Zaključano
Zakačeno
> 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')
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')
Potpis
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
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
Za string mislim da može ovako nekako:
Code (delphi):
uses
StrUtils;
...
s := Format('%15s', [AnsiRightStr('000000000000000' + s, 15)]);
...
uses
StrUtils;
...
s := Format('%15s', [AnsiRightStr('000000000000000' + s, 15)]);
...
Momci,
hvala, hvala, sta drugo reci Velikim ljudima.
hvala, hvala, sta drugo reci Velikim ljudima.
Potpis
Kruno_S