увеличение переменной

[m1zantrop]

по нажатию кнопки, текст в эдите должен прибавляться на один. помогите с кодом)

procedure TForm6.sButton3Click(Sender: TObject);
var
i,n: Integer;
begin
for i:=1 to n do
sEdit2.Text:=(inttostr(i));

[ych_del]

http://www.kletka.net/uploads/posts/...-plakati20.jpg

Чему у тебя изначально равняется n? Какой текст на момент нажатия содержится в sEdit2?

N := StrToIntDef(sEdit2.Text, -1);
sEdit2.Text := IntToStr(N+1);

[m1zantrop]

=)

н = 0, тест='';

прибавило 1 раз и число стало равно одному, но нужно чтобы с каждым нажатием оно плюсовалось на 1. 10 раз нажал sEdit2.Text:=10;

[Shouldercannon]

var
  Form5: TForm5;
  i: Integer;

implementation

{$R *.dfm}

procedure TForm5.FormCreate(Sender: TObject);
begin
  i := 0;
end;

procedure TForm5.Button1Click(Sender: TObject);
begin
  Inc(i, 1);
  Edit1.Text := IntToStr(i);
end;

[m1zantrop]

спасибо

[Serge_Bliznykov]

прибавило 1 раз и число стало равно одному,

не верю!
значит Вы взяли только ОДНУ строчку из двух вам написанных ych_del!!!

Ну или прямо так напишите (в одной строчке всё, что нужно):

procedure TForm6.sButton3Click(Sender: TObject);
begin
  sEdit2.Text:= inttostr( StrToIntDef(sEdit2.Text, -1) + 1 ); 
end;

[m1zantrop]

нет, я писал две