02222 -02221 = 00001 как ?

[mr_xxx]

Добрый день
Очень срочно нужна помощь

a:=02222
b:=02221

нужна чтобы получилась
c:=00001

как это сделать?

заранее спасибо

[Alex11223]

PadLeft если новая Дельфи.

Если старая, то придется сделать самому что-то такое

uses SysUtils, StrUtils;

// дополняет строку символами Symbol до длины ToLength
function ExpandStringByCharToLength(Str: string; Symbol: Char;
  ToLength: Integer; FillFromBegin: Boolean = False): string;
begin
  if Length(Str) > ToLength then
    Str := Copy(Str, 1, ToLength)
  else
    if FillFromBegin then
      Str := DupeString(Symbol, ToLength - Length(Str)) + Str
    else
      Str := Str + DupeString(Symbol, ToLength - Length(Str));
  Result := Str;
end;

[mr_xxx]

в примере можете покозат? я чето не разобрался (использую Delphi XE 5)
a:=02222
b:=02221

c:=ответ

[Alex11223]

http://docwiki.embarcadero.com/Libra...Helper.PadLeft

[mr_xxx]

var a,b:string;
newst1,newst2:string;
dd:integer;
begin
a:='12345';
b:='00001';

newst1:=a.PadLeft(5);
newst2:=b.PadLeft(5);


dd:= strtoint(newst1)+strtoint(newst2)  ;
showmessage(inttostr(dd));


end;

ответ : 12346
это правильно

но если задать

a:='00001';
b:='00001';

получется 2 а нужна 00002
главный вопрос не решен

[Alex11223]

Может стоит включить мозг и применять PadLeft к результату, а не к тому что вы все равно конвертируете в число?

StrToInt, IntToStr + PadLeft

[Аватар]

получется 2 а нужна 00002

Дык и используй PadLeft для получения результата

[evg_m]

s:=format('%.5d', [1]); // '00001'

http://www.delphibasics.ru/Format.php

[Alex11223]

format неудобный, надо помнить что там и в каком виде писать и ошибки будут только в рантайме.

[kropotkina-alice]

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

получИтся 2, а нужнО 00002
главный вопрос не решен

var a,b,tmp:string;
begin
a:='00005';
b:='00001';
tmp:=IntToStr(StrToInt(a)+StrToInt(b));
while Length(tmp)<Length(a) do
tmp:='0'+tmp;
Showmessage(tmp);
end;