Повторение

[CraftR14]

Это опять я со своими вопросами))
к примеру есть процедура

procedure kakashka;
begin
showmessage('Kaka');
end;

и есть у примеру edit1
Так вот. так и не понел как мне сделать повторение процедуры.
к примеру я воожу в edit1 10 и процедура повторяется 10 раз.
и так далее.....

как моно это реализовать?

[W0LF]

Циклы, циклы и еще раз циклы...

procedure kakashka;
begin
  showmessage('Kaka');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Count: integer;
begin
  for Count := 1 to StrToIntDef(Edit1.Text, 1) do
    kakashka;
end;

[CraftR14]

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

Циклы, циклы и еще раз циклы...

procedure kakashka;
begin
  showmessage('Kaka');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Count: integer;
begin
  for Count := 1 to StrToIntDef(Edit1.Text, 1) do
    kakashka;
end;

[Error] Unit1.pas(36): Undeclared identifier: 'Edit1'

[DeDoK]

ну так кинь на форму то этот Edit1

[p51x]

"и есть у примеру edit1"
Так он есть или его нет?

[CraftR14]

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

"и есть у примеру edit1"
Так он есть или его нет?

Млин конечшно есть !!1! Я не совсем уж такой нубяра))

[Serge_Bliznykov]

а называется он именно Edit1 или Вы его переименовали?
А кнопку кинули?
Двойной щёлчок по ней сделали?
Код в открывшемся редакторе

var
  Count: integer;
begin
  for Count := 1 to StrToIntDef(Edit1.Text, 1) do
    kakashka;

вставили?...

Если не поможет, давайте сюда полностью исходный текст модуля.

[CraftR14]

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

а называется он именно Edit1 или Вы его переименовали?
А кнопку кинули?
Двойной щёлчок по ней сделали?
Код в открывшемся редакторе

var
  Count: integer;
begin
  for Count := 1 to StrToIntDef(Edit1.Text, 1) do
    kakashka;

вставили?...

Если не поможет, давайте сюда полностью исходный текст модуля.

НА форме Edit1
и Button1

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    button1: TButton;
    edit1: TEdit;
    procedure button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure kakashka;
begin
  showmessage('Kaka');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Count: integer;
begin
  for Count := 1 to StrToIntDef(Edit1.Text, 1) do
    kakashka;
end;

end.

Чо то мну не нравитса моя делфи, то ему Handle не нравитса то еще чо нить.... нада на 10 переходить по ходу))

[Serge_Bliznykov]

ну не знаю... Как и что у Вас не работает...
попробуйте исходники проекта из вложения.