[DOR]

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

[Snake22]

Код:

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') можно всегда узнать количество нулей, и само число.

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

Код:

function IntToStr(Value: Integer): string;

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

>>

Код:

function StrToInt(const S: string): Integer;

[Uniq!]

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

Код:

function StrToInt(const S: string): Integer;

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

[DOR]

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

[Uniq!]

Код:

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!

Код:

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;

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

[Uniq!]

Кхм...

Код:

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

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