Вопросы по поводу edit`ов

[Lemo]

Ребята, на форму кинул 3 едита и 1 кнопку, в едит №1 и №2 вводим числа, нажимаем кнопку и в едит №3 выводиться сумма 2-х чисел.

Вопрос №1
Если я не ввожу никаких чисел, а сразу наживаю кнопку, выскакивает ошибка! Как это избежать? я хочю что бы при нажатии кнопки никаких действий не происходило, если едит 1 и едит 2 не заполнены!
Вопрос №2
Если ввожу буквы, то тоже ошибка, я хочю что бы при нажатии кнопки никаких действий не происходило!

Заранее спасибо!

[goblinyara]

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
if edit1.Text <>'' then
for i:=1 to length(edit1.Text) do
if not (edit1.Text[i] in ['0','1','2','3','4','5','6','7','8','9']) then
begin
showmessage('Символ '+inttostr(i)+' не цифра!!!');
exit;
end
else
begin
//тут делаете то,что вам нужно
end;
end;

это для одного эдита, для второго - аналогично

[NieL]

Можно так:

if TryStrToInt(edit1.Text, v1) and TryStrToInt(edit2.Text, v2) then
// какое-то действие 
ShowMessageFmt('%d', [v1 + v2]);

[Пепел Феникса]

а не проще ли MaskEdit использовать?
или ограничить ввод символов?

[5naip]

можно ли так? на ошибку при компиляции не смотреть...в готовом exeшнике все оки-доки...

procedure TForm1.Button1Click(Sender: TObject);
begin
try
edit3.text:=inttostr(strtoint(edit1.text)+strtoint(edit2.text));
except
showmessage('неверные данные');
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end;
end;

[mihali4]

Ну, вот это:

if not (edit1.Text[i] in ['0','1','2','3','4','5','6','7','8' ,'9']) then
begin
showmessage('Символ '+inttostr(i)+' не цифра!!!');
exit;
end

будет очень напрягать - все время жмакать "ОК"...
Проще по EditKeyDown присваивать key:=0;
Да и вообще вся обработка должна происходить в момент нажатия клавиш в эдитах (или отпускания), а не в обработчике кнопки Button1Click.
А вообще - вопрос из множества "жеванных-пережеванных"...

[Lemo]

procedure TForm1.Button1Click(Sender: TObject);

var i, j: integer;
begin
if edit1.Text <>'' then
for i:=1 to length(edit1.Text) do
if not (edit1.Text[i] in ['0','1','2','3','4','5','6','7','8','9']) then
begin
showmessage('Символ '+inttostr(i)+' не цифра!!!');
exit;
end
else
begin
edit3.text:=inttostr(strtoint(edit1.text)+strtoint(edit2.text));
end;


if edit2.Text <>'' then
for j:=1 to length(edit2.Text) do
if not (edit2.Text[j] in ['0','1','2','3','4','5','6','7','8','9']) then
begin
showmessage('Символ '+inttostr(j)+' не цифра!!!');
exit;
end
else
begin
edit3.text:=inttostr(strtoint(edit1.text)+strtoint(edit2.text));
end;
end;
end.

Со 2м едитом выдает ошибку!

[Bayazet]

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

Можно так:

if TryStrToInt(edit1.Text, v1) and TryStrToInt(edit2.Text, v2) then
// какое-то действие 
ShowMessageFmt('%d', [v1 + v2]);

NieL предложил самый разумный и простой вариант (имхо)

используй TryStrToInt (или Float, что тебе надо)

[Lemo]

procedure TForm1.Button1Click(Sender: TObject);
var v1,v2:integer;
begin
if TryStrToInt(edit1.Text, v1) and TryStrToInt(edit2.Text, v2) then
edit3.text:=inttostr(strtoint(edit1.text)+strtoint(edit2.text));

end;
end.

Вот оно, спасибо за помощь!

[Bayazet]

))

edit3.text:=inttostr(strtoint(edit1 .text)+strtoint(edit2.text));

у вас уже есть значения edit1.text и edit2.text в, соответственно, v1 и v2.

следовательно можно обойтись этим:

procedure TForm1.Button1Click(Sender: TObject);
var v1,v2:integer;
begin
if TryStrToInt(edit1.Text, v1) and TryStrToInt(edit2.Text, v2) then
edit3.text:=inttostr(v1 + v2);

end;
end.