Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Вниз

Компоновка файла из данных в Едитах ! 


IronHawk   (2002-03-26 16:16) [0]

И снова Едиты !
Извините, Надо загнать в один файл данные из Едитов загнать в файло !
Так !
файл c:\123.txt, его содержание:
Edit1.text|Edit2.text|Edit3.text

Предполагаемый код:

AssignFile(f,"date2.wu");
Append(f);
Write(f, Edit1.text);
Write(f, "|");
Write(f, Edit2.text);
Write(f, "|");
Writeln(f, Edit3.text);
Flush(f);
CloseFile(f);

ТАК ЛИ ?



Alx2   (2002-03-26 16:27) [1]

Почти тоже самое:
AssignFile(f,"date2.wu");
Append(f); // То есть, добавляем к тому, что уже лежит в файле.
WriteLn(F,Edit1.Text+"|"+Edit2.Text+"|"+Edit3.Text);
CloseFile(F);



olookin   (2002-03-26 16:55) [2]

а еще лучше организовать все это по циклу, ища все компоненты TEdit на данной форме (или только нужные по тагу)



IronHawk   (2002-03-26 17:05) [3]


> olookin © (26.03.02 16:55)

Например ?



olookin   (2002-03-26 17:24) [4]

Например:

s: string;

s:="";
for i:=0 to Form1.ComponentCount-1 do
if Form1.Components[i] is TEdit then
s:=s+(Form1.Components[i] as TEdit).Text+"|";



IronHawk   (2002-03-26 17:44) [5]


> olookin ©

Круто!
А если мне надо не все Едиты так, анекоторые !
Тогда что ?



olookin   (2002-03-27 07:19) [6]

Использовать таги или имена компонентов:

Таги:

s: string;

s:="";
for i:=0 to Form1.ComponentCount-1 do
if (Form1.Components[i] is TEdit) and
((Form1.Components[i] as TEdit).Tag=MyTag) then
s:=s+(Form1.Components[i] as TEdit).Text+"|";

Имена:

s: string;

s:="";
for i:=0 to Form1.ComponentCount-1 do
if (Form1.Components[i] is TEdit) and
(Pos("MyName",(Form1.Components[i] as TEdit).Name)<>0) then
s:=s+(Form1.Components[i] as TEdit).Text+"|";

Можно также всякие разности типа символов в Text, координат и пр.



IronHawk   (2002-03-27 10:16) [7]


> olookin ©

Обалденно !
Спасибо !




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.018 c
14-22832          tovSuhov              2002-02-25 17:58  2002.04.08  
Куда пропала ветка из раздела


1-22764           DimaIv                2002-03-25 17:00  2002.04.08  
Как в Word документе сделать найти и заменить на


3-22575           KaPaT                 2002-03-17 20:45  2002.04.08  
Кто работал с отчетами помагите пожалуйста!


1-22620           АААААА                2002-03-27 17:33  2002.04.08  
Как загрузить иконку из файла *.ico?


3-22531           mcmax                 2002-03-14 10:54  2002.04.08  
Помогите составить запрос с внешними объединениями