[dimon_dimon]

У меня такой вопрос... Есть на форме 44 Edit'a.Так вот реально как-то циклом записать текст из каждого Edit'a (начиная с первого и заканчивая последним) в файл?????Пробовал так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

var i:integer;     s:shortstring;     f:textfile; Mas: Array[1..44] of Tedit;   begin AssignFile(f,'C:\123.txt'); ReWrite(f); try for i:=1 to 44 do begin s:=Mas[i].Text; Writeln(f,s); end finally CloseFile(f); end;

но ничего не получается!
Кидает ошибку "Access violation ......................."!Может кто-то подскажет как решить эту проблему?просто не хочется писать Writeln(f,Edit1.text) и так до 44-го!

[Decoding]

Код:

1 2 3 4 5 6 7 8 9 10 11

<b>procedure</b> TForm1.Button1Click(Sender: TObject); <b>var</b>   f: TextFile;   i: integer; <b>begin</b>    AssignFile( f, <font color="royalblue">'C:\123.txt'</font> );    Rewrite( f );    <b>for</b> i := <font color="royalblue">1</font> <b>to</b> <font color="royalblue">44</font> <b>do</b>       Writeln( f, TEdit( FindComponent( Format( <font color="royalblue">'Edit%d'</font>, [i] ) ) ).Text );    CloseFile( f ); <b>end</b>;

[~ SaM ~]

to Decoding

А как найти на форме Editы и записать в НИХ текст???

[mav_c]

Сообщение от ~ SaM ~

to Decoding

А как найти на форме Editы и записать в НИХ текст???

Так-же, только не читай свойство Text, а устанавливай его!

[Winny]

To Sam
Вот так:

Код:

1	TEdit(FindComponent('Имя эдита')).Text:='Твой текст';

[dimon_dimon]

to Winni

А если надо не в определенный Эдит, а в 100??
Я чисто из интереса проверил твой код, он работает, НО! Если написать:

Код:

1 2 3

for i:=1 to 100 do begin TEdit(FindComponent('Edit'+inttostr(i)).Text:=inttostr(i); end;

То будет ошибка! Undeclared identifier: 'Text'; Как с этим бороться?

[Winny]

Ты забыл поставить ещё одну скобку:

Код:

1 2 3

for i:=1 to 100 do begin TEdit(FindComponent('Edit'+inttostr(i))<font color="Red">)</font>.Text:=inttostr(i); end;

И с твоим кодом всё так же будет работать как и с моим.