Значения поля edit

[glazik]

end есть проблема не в этом(((

[glazik]

все поправил спс.......))))

[glazik]

И еще такой вопросик как сделать чтоб при нажатии на кнопку на одной форме1, форма 1 закрывалась и открывалась новая форма со значениями формы1, то есть, например, в первой форме я ввел в edit число 5, соответственно, нажимаю на кнопку "далее" и мне сразу же в новой форме открывается 5 полей для заполнения. Интересует как сделать чтоб после закрытия 1 формы во второй сразу все появлялось и не нада было писать весь код в процедуру нажатия на кнопку на форме 2. Замудренно, но больше не знаю как объяснить, если кто понял напишите теорию хоть плиз)

[glazik]

я уже наверно всех достал... но еще вопрос: как обратиться к элементу массива, который отсутствует на форме, но создается в цикле, то есть есть массив который создает поля для записи, в эти поля пользователь забивает данные нада эти данные потом взять и с ними дальше работать. Как обратиться к этим данным?

[Volt]

var mass1:array [1..255] of tedit;
begin
...
(mass1[1] as tedit).text

end;

[ArtGrek]

TEdit(FindComponent('Edit' + IntToStr(x))).caption := 'ok?';

___________________________________ ___________________

И еще такой вопросик как сделать чтоб при нажатии на кнопку на одной форме1, форма 1 закрывалась и открывалась новая форма со значениями формы1, то есть, например, в первой форме я ввел в edit число 5, соответственно, нажимаю на кнопку "далее" и мне сразу же в новой форме открывается 5 полей для заполнения. Интересует как сделать чтоб после закрытия 1 формы во второй сразу все появлялось и не нада было писать весь код в процедуру нажатия на кнопку на форме 2. Замудренно, но больше не знаю как объяснить, если кто понял напишите теорию хоть плиз)

в кнопке некст прячим форму1, показываем форму 2, а какои нибудь индекс делаем равныи 5
а уже в оншоу формы 2 создание в цикле едитов

For i := 1 to Index do
edit1 := Tedit.create(self);

[chertovich]

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

Вот спасибо даже не могу подумать что free убивает форму, думал что close убивает СПАСИБО ОГРОМНОЕ!!!!!!!!!!!!!

Вообще лучше избегать уничтожение формы непосредственно через Free (Могут появится ошибки). Лучше в обработчике события OnClose ставь Action := caFree;
И не забывай потом присвоить свойму экземпляру nil

[glazik]

var
y,j:integer;
begin

      y:=strtoint(g1.edit2.text);
      for p:=1 to y do
      r:=(a[p] as tedit).text;
      zapis(r);
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

zapis(r) записывает только последний элемент массива, помогите, пожалуйста...

[glazik]

procedure zapis(str:string);
var
  f:TextFile;
  FileDir:String;

begin
  filedir:='c:\file.txt';
  AssignFile(f,FileDir);
  if not FileExists(FileDir) then
    begin
      Rewrite(f);
      CloseFile(f);
    end;
  Append(f);
  Writeln(f,str);
  Flush(f);
  CloseFile(f);

end;

что не так, берет только последний элемент массива....

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

_____________________________
И не надо плодить подряд несколько коротких сообщений!
Это нарушение правил...
для того, чтобы через минуту/другую дописать сообщение,
не надо создавать ещё один новый пост.
нажимайте на предыдущем кнопку "Правка"
и дописывайте в своё сообщение, что Вы хотели добавить!

Модератор.

[Serge_Bliznykov]

var
y,j:integer;
begin

      y:=strtoint(g1.edit2.text);
      for p:=1 to y do 
      begin
        r:=(a[p] as tedit).text;
        zapis(r);
     end;
end;

у Вас же в цикле записи не было!