Форматирование строк

fbgvfbfgn
Дата: 04.12.2007 11:21:50
Подскажите как сделать чтобы к числам дописывались 0 если в writeln числа генерируются случайно:

writeln(ff,random(14),' ',randomrange(10,250),' ',random(55555),' ',random(33333),' ',random(444));

Результат:
5 92 204 1140 25

а надо

5 092 00204 1140 025
Macks
Дата: 04.12.2007 11:24:31
fbgvfbfgn
Подскажите как сделать чтобы к числам дописывались 0 если в writeln числа генерируются случайно:

writeln(ff,random(14),' ',randomrange(10,250),' ',random(55555),' ',random(33333),' ',random(444));

Результат:
5 92 204 1140 25

а надо

5 092 00204 1140 025


Условие противоречит примеру. Определитесь точнее.
Gerasimenko
Дата: 04.12.2007 11:29:23
function Padl(st_1:string;st_2:char;n1:integer):string;

function padl;
var
i:integer;
begin
for i:=Length(st_1)+1 to N1 do
Insert(st_2,st_1,1);
padl:=st_1;
end;
Krevedko
Дата: 04.12.2007 11:30:41
Если я правильно понял вопрос, то вот так
writeln(ff,random(14),' 0',randomrange(10,250),' 0',random(55555),' 0',random(33333),' 0',random(444));
Demonius
Дата: 04.12.2007 12:00:32
function LRandomFormat(aFrom,aTo:integer):string;
begin
   Result:=IntToStr(RandomRange(aFrom,aTo));
   Result:=StringOfChar('0',Max(Length(IntToStr(aFrom)),Length(IntToStr(aTo)))-Length(Result))+Result;
end;
writeln(ff,LRandomFormat(0,14),' ',LRandomFormat(10,250),' ',
   LRandomFormat(0,55555),' ',LRandomFormat(0,33333),' ',LRandomFormat(0,444));
fbgvfbfgn
Дата: 04.12.2007 12:05:00
Krevedko
Если я правильно понял вопрос, то вот так
writeln(ff,random(14),' 0',randomrange(10,250),' 0',random(55555),' 0',random(33333),' 0',random(444));


:))

Похоже я не правильно объяснил. У меня в файл записываются числа строго определного разряда т.е.: 4 сьолбик только 3-х значные 5 столбик-5ти значные и т.д. и мне нужно если число в 4 столбике например 2х значное чтобы к нему впереди дописывался 0.

2 74062565 1 17 5344 15990 3384
3 77823657 1 36 53052 3706 2597

2 74062565 1 017 05344 15990 3384
3 77823657 1 036 53052 03706 2597
Gerasimenko
Дата: 04.12.2007 12:08:10
fbgvfbfgn
[quot Krevedko]
Похоже я не правильно объяснил. У меня в файл записываются числа строго определного разряда т.е.: 4 сьолбик только 3-х значные 5 столбик-5ти значные и т.д. и мне нужно если число в 4 столбике например 2х значное чтобы к нему впереди дописывался 0.



SRC delphi]
padl(st_number1,'0',4)[
[/src]текст самой функция я привел :)
Anatoly Podgoretsky
Дата: 04.12.2007 12:11:11
автор
и мне нужно если число в 4 столбике например 2х значное чтобы к нему впереди дописывался 0.

Зачем, может не той дорогой идешь.
Вариантов так сделать великое множество, но зачем?
fbgvfbfgn
Дата: 04.12.2007 12:40:19
Anatoly Podgoretsky
автор
и мне нужно если число в 4 столбике например 2х значное чтобы к нему впереди дописывался 0.

Зачем, может не той дорогой идешь.
Вариантов так сделать великое множество, но зачем?


Это нужно для аккуратности и наглядности. это здесь я 2 строчки в пример привел у меня их будет около 80 и пальцем водить и разбираться какая цифра к какому столбику относится никакого желания нет. Может скажите ваше мнение как это сделать раз говорите что их множество...
Dimitry Sibiryakov
Дата: 04.12.2007 12:43:35

fbgvfbfgn
столбику

Прочитай справку по Write(Ln) и открой для себя форматирование.

Posted via ActualForum NNTP Server 1.4