| iosia |
| Отправлено: 20.05.2006, 10:26 |
|
Ученик-кочегар
Группа: Участник
Сообщений: 7
|
Прошу помощи.
Нужно строки из таблицы (не все, а например отобранные по дате) записать в файл .txt Одну строку записать получается, а несколько нет. Понимаю что нужен цикл, а как его реализовать на практике не знаю.
Если не трудно приведите пример. |
|
| olegenty |
| Отправлено: 20.05.2006, 12:46 |
|
Ветеран
Группа: Модератор
Сообщений: 2412
|
Сто раз приводились примеры.
| CODE |
for(Query->First(); !Query->Eof; Query->Next())
{
// вызываем функцию, производящую запись в файл;
}
|
|
|
| iosia |
| Отправлено: 21.05.2006, 09:08 |
|
Ученик-кочегар
Группа: Участник
Сообщений: 7
|
Спасибо за ответ.
Все равно не получается. Если строка последняя в таблице, то все нормально записывает. А если после найденной строки (которую нужно записать) есть еще строки (их записывать не надо), то последняя совпадающая строка записывается столько раз, сколько еще строк после нее в таблице.
Посмотрите пожалуйста что не так:
AnsiString st;
int f;
f = FileCreate("1.txt");
for(Table1->First(); !Table1->Eof; Table1->Next())
{
if(Table1->FieldByName("Dat")->AsString == Edit1->Text)
st = Table1->FieldByName("Pl")->AsString;
FileWrite(f,st.c_str(),st.Length());
}
|
|
| Guest |
| Отправлено: 21.05.2006, 17:22 |
|
Не зарегистрирован
|
| CODE | AnsiString st;
int f;
f = FileCreate("1.txt");
for(Table1->First(); !Table1->Eof; Table1->Next())
{
if(Table1->FieldByName("Dat")->AsString == Edit1->Text)
{
st = Table1->FieldByName("Pl")->AsString;
FileWrite(f,st.c_str(),st.Length());
}
} |
|
|
| iosia |
| Отправлено: 22.05.2006, 01:55 |
|
Ученик-кочегар
Группа: Участник
Сообщений: 7
|
Спасибо! |
|
