[whitehustle]

В общем, тут нужно сделать, чтобы поле (edit1) очищалось, когда вводишь новое число, уже после исчислений. Например, после того как А+В=С, то остается С, и при вводе А дополняется к С. Втыкаю в другие коды и не врубаю %)

Если писать где кнопки (0-9) edit1.clear, то получается что нельзя работать с числами, где больше 1 символа.

Помогите , братва

[Bargest]

После вычислений ставишь глобальный флаг, и по нажатии кнопок 0..9 если установлен флаг то сбрасываешь его и делаешь edit1.Clear.

[whitehustle]

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

После вычислений ставишь глобальный флаг, и по нажатии кнопок 0..9 если установлен флаг то сбрасываешь его и делаешь edit1.Clear.

1) а можно подробнее узнать, что за flag, а то так и не усек?)

2) т.е. на каждую кнопку отдельно прописывать?
у меня вот так там сделано

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'1';
end;

3) в конце прописывал flag:=false, потом edit1.clear, так он удаляет всё. то это на кнопке = стоит у меня всё.
похоже я очередной раз не догнал, что надо сделать

[Bargest]

1)

Код:

var flag:boolean;

2) Лучше всего сделать так по событию Edit1Change:

Код:

begin
 if flag then
 begin 
  Edit1.Text:=Edit1.Text[length(Edit1.Text)];
  flag:=false;
 end;
end;

3)

Код:

//после вычислений
flag:=true;

[whitehustle]

спасибо большое, всё работает

но вопрос про flag остается открыт) что это за штука, как я понял, то что-то вроде для перебора?)

[v1s2222]

flag - это обычная переменная, которая имеет два значения: 0 или -1 (то бишь True or False). Она нужна, чтобы понять, когда надо очистить едит.