[DOR]

Добрый день. Есть номер договора, например 00002. Для дальнейшей работа с ним, мне нужно 0000 отделить от 2. т.е. присвоить переменной :null 0000, а переменной :num 2. Подскажите пожалуйста, как разделить 00002 на ноли и цыфры. Спасибо.

[Snake22]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.Button1Click(Sender: TObject); var num1,num2, num:string; i:integer; begin num:='00002'; for i:=1 to Length(num) do     //перебираем все цифры числа и ищем где кончатся нули и начнутся цифры отличные от нуля     if num[i]<>'0' then        begin        num1:=Copy(num,1,i-1);        num2:=Copy(num,i,Length(num));        break;        end; ShowMessage('Число1: '+num1+' Число2: '+num2); end;

[Uniq!]

StrToInt(str: string) проглатывает всё что имеет пачку нулей перед собой.
Т.е. StrToInt('0000000000002') вернёт двойку.

Если прикрутить сюда ещё Length('0000000000002') можно всегда узнать количество нулей, и само число.

[NumLock]

Сообщение от Uniq!

IntToStr(str: string) проглатывает всё что имеет пачку нулей перед собой.
Т.е. IntToStr('0000000000002') вернёт двойку.

Если прикрутить сюда ещё Length('0000000000002') можно всегда узнать количество нулей, и само число.

да неужели???

Код:

1	function IntToStr(Value: Integer): string;

IntToStr() всегда в качестве параметра принимал число, а возвращал строку!!!

>>

Код:

1	function StrToInt(const S: string): Integer;

[Uniq!]

Сообщение от NumLock

Код:

Спасибо, я банально опечатался.

[DOR]

Простите мою глупость. Можно написать код на моем примере? Так как это сделал Snake22.

[Uniq!]

Код:

1 2 3 4 5 6 7 8 9 10

procedure TForm1.Button1Click(Sender: TObject); var  art : string;  num,col0 : integer; begin art := '00120'; col0 := Length(art) - Length(IntToStr(StrToInt(art))); num := StrToInt(art); Caption := IntToStr(num) + ' нулей:' + IntToStr(col0); end;

[DOR]

Сообщение от Uniq!

Код:

col0 должен не считать количество 0, а записать ввиде 00

[Uniq!]

Кхм...

Код:

1	stroka_s_ky4ei_nylei := StringOfChar('0',col0);

Неужели так сложно...