дается строка Edit1(произвольная) Вывести в поле Edit2 строку наоборот

[Alex21]

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

А вот насчёт калькулятора ??

Кидай на форму Edit и в свойстве KeyPress пиши:
//////////////////////
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
a,b,rez:extended;
znak,str:string;
z,i:integer;
begin
znak:='';
z:=0; // {позиция знака}
A:=0; // {первое число,}
B:=0; // {второе число,}
rez:=0; // {результат}
if Key in ['0'..'9']+[#8,#13]+[',','.','+','-','*','/'] then begin end else Key:=#0; // {исключаем ввод букв и прочих лишних символов}
if (Key=',')or(Key='.') then Key:=DecimalSeparator; { знак точки/запятой}
if Key=(#13) then // {когда нажимаем ENTER}
begin
str:=Edit1.Text;
for i:=0 to Length(str)-1 do
begin
case (str[i]) of // {ищем в строке вхождение знака + - * /}
'+': begin
znak:='+';
A:=strtofloat(copy(str,0,i-1));
B:=strtofloat(copy(str,i+1,Length(s tr)-1));
Rez:=A+B;
end;
'-': begin
znak:='-';
A:=strtofloat(copy(str,0,i-1));
B:=strtofloat(copy(str,i+1,Length(s tr)-1));
Rez:=A-B;
end;
'*': begin
znak:='*';
A:=strtofloat(copy(str,0,i-1));
B:=strtofloat(copy(str,i+1,Length(s tr)-1));
Rez:=A*B;
end;
'/': begin
znak:='/';
A:=strtofloat(copy(str,0,i-1));
B:=strtofloat(copy(str,i+1,Length(s tr)-1));
Rez:=A/B;
end;
end;
end;
Form1.Caption:=floattostr(a)+znak+f loattostr(b)+'='+floattostr(rez); // {вывод в заголовок формы всей формулы}
Edit1.Text:=floattostr(rez); // {вывод в едит ответа }
end;
end;

/////////////////////
Вводишь в Edit примерно следующее: 123,45+6789
жмыкаешь Enter

P.S.: Работает только для одного арифметического действия!!!!!!!!!

[OrdJONY]

Вот посмотри может пригодиться, когда то делал

[ACE Valery]

Вот.
Вложение 682
Может последовательно выполнять не более двух действий, например, a+b-c или a*b+c и т.п.

[Максим-2]

Чтоюы бы не появлялась надпись Edit2 перед запуском программы выдели мышкой это ЭДИТ и в свойстве caption (заголовок) очисти (удали) надпись EDIT2

[KORT]

[quote=RocKy;22985]есть готовая программа Каркулятора в Delphi!!!/quote]
Вот посмотри, на этой ссылке. Там много различных калькуляторов.

[KORT]

Сообщение от ACE Valery

Вот.
Вложение 682
Может последовательно выполнять не более двух действий, например, a+b-c или a*b+c и т.п.

Вот эту ошибку выдает форум: "Вложение не указано или не существует...".

[Viteef]

Сообщение от Максим-2

Чтоюы бы не появлялась надпись Edit2 перед запуском программы выдели мышкой это ЭДИТ и в свойстве caption (заголовок) очисти (удали) надпись EDIT2

У edit'a заголовок не Caption а Text