Delphi 7

[V0L40K_21]

Задача такова...вожу в edit чило может быть и с минусом и программа должна в memo вывести это число словами например edit=35...memo=тридцать пять

[VIK_aka_TOR]

идею тут почерпните... почти все сделано... и немного пищи для ума останется)

[V0L40K_21]

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

идею тут почерпните... почти все сделано... и немного пищи для ума останется)

Спасибо большое!

[V0L40K_21]

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

идею тут почерпните... почти все сделано... и немного пищи для ума останется)

подскажите как довать минус...тоесть отрицательные числа

[VIK_aka_TOR]

сканишь строку сперва на "-" ... и если он есть в самом начале... то значит минус...
тобишь поработать малость с символьным форматом данных... или же попробовать конвертануть в число и проверить на больше нуя или меньше...

[V0L40K_21]

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

сканишь строку сперва на "-" ... и если он есть в самом начале... то значит минус...
тобишь поработать малость с символьным форматом данных...

если честно до меня эта тема воопще не дошла

[VIK_aka_TOR]

если делать как там... то если пробелом не будет, то минус будет стоять в самом начале, а значит

if s[1] = '-' then
memo.text:= "минус " ;

что то подобное..

[V0L40K_21]

procedure TForm1.Button1Click(Sender: TObject);
const
sotni : array [0..9] of string=('','сто','двести','триста', 'четыреста','пятьсот','шестьсот','с емьсот','восемьсот','девятьсот');
desyatki : array [0..9] of string=('','десять','двадцать','три дцать','сорок','пятьдесят','шестьде сят','семьдесят','восемьдесят','дев яносто');
edenici : array [0..9] of string=('','один','два','три','четы ре','пять','шесть','семь','восемь', 'девять');
special : array [0..9] of string=('десять','одиннадцать','две надцать','тринадцать','четырнадцать ','пятнадцать','шестнадцать','семна дцать','восемнадцать','девятнадцать ');
var
cislo,j,ed,des,sot:integer;
s1,s10,s100:string[1];
s:string;
begin
s:=Edit1.Text;
cislo:=StrToInt(s);
If ((cislo<0) or (cislo>1000)) then ShowMessage ('Введите число в диапазоне 0..1000');
j:=Length(s);
Case j of
1:begin
ed:=StrToInt(s);
Label1.Caption:=edenici[ed];
end;
2:begin
If s[1]='1' then
begin
s1:=s[2];
ed:=StrToInt(s1);
Label1.Caption:=special[ed];
end
else
begin
s10:=s[1];
s1:=s[2];
des:=StrToInt(s10);
ed:=StrToInt(s1);
Label1.Caption:=desyatki[des]+' '+edenici[ed];
end;
end;
3:begin
s100:=s[1];
s10:=s[2];
s1:=s[3];
des:=StrToInt(s10);
ed:=StrToInt(s1);
sot:=StrToInt(s100);
If s[2]='1' then
Label1.Caption:=sotni[sot]+' '+special[ed]
else
Label1.Caption:=sotni[sot]+' '+desyatki[des]+' '+edenici[ed];
end;
4:begin
end;
End;
If cislo=1000 then Label1.Caption:='тысяча';
If cislo=0 then Label1.Caption:='ноль';
end;

кто знает как и где здесь добавить отрицательные?((

[VIK_aka_TOR]

сразу же после этих строк

begin
s:=Edit1.Text;

тобишь при присваивании переменной текста помещенного в эдит...

[V0L40K_21]

procedure TForm1.Button1Click(Sender: TObject);
const
desyatki : array [0..9] of string=('','десять','двадцать','три дцать','сорок','пятьдесят','шестьде сят','семьдесят','восемьдесят','дев яносто');
edenici : array [0..9] of string=('','один','два','три','четы ре','пять','шесть','семь','восемь', 'девять');
special : array [0..9] of string=('десять','одиннадцать','две надцать','тринадцать','четырнадцать ','пятнадцать','шестнадцать','семна дцать','восемнадцать','девятнадцать ');
var
cislo,j,ed,des:integer;
s1,s10:string[1];
s:string;
begin
Label1.Visible:=True;
s:=Edit1.Text;
cislo:=StrToInt(s);
If ((cislo<-100) or (cislo>100)) then ShowMessage ('Введите число в диапазоне 0..100');
j:=Length(s);
Case j of
1:begin
ed:=StrToInt(s);
Label1.Caption:=edenici[ed];
end;
2:begin
If s[1]='1' then
begin
s1:=s[2];
ed:=StrToInt(s1);
Label1.Caption:=special[ed];
end
else
begin
s10:=s[1];
s1:=s[2];
des:=StrToInt(s10);
ed:=StrToInt(s1);
Label1.Caption:=desyatki[des]+' '+edenici[ed];
end;
end;

End;
if s[1]='-' then
begin
Case j of
1:begin
ed:=StrToInt(s);
Label1.Caption:='Минус'+edenici[ed];
end;
2:begin
If s[2]='1' then
begin
s1:=s[3];
ed:=StrToInt(s1);
Label1.Caption:='Минус'+special[ed];
end
else
begin
s10:=s[2];
s1:=s[3];
des:=StrToInt(s10);
ed:=StrToInt(s1);
Label1.Caption:='Минус'+desyatki[des]+' '+edenici[ed];
end;
end;

End;
end;
If cislo=100 then Label1.Caption:='сто';
If cislo=-100 then Label1.Caption:='минус сто';
If cislo=0 then Label1.Caption:='ноль';
end;


сделал вот так...всё работает только если ввести s[1]='-' то ничего не происходит подскажите что не так