Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

чтение из файла [D5, Win95/98]


~Alice~ ©   (2002-03-13 22:20:00) 

Люди тут такая фигня: есть txt-файл содержимое которого примерно такое:
1#30#123
2#20#123
3#40#123
посоветуйте, как можно считать из этого файла так что бы при обнаружении # данные до нее(#) заносились в ячейку базы данниых например в access


Anatoly Podgoretsky   (2002-03-14 23:11:00) [1]

ProgMan © (14.03.02 08:57)
Это тоже и в конкретных реализациях I будет иметь разное значение по окнчанию цикла (для случая если цикл отработает полностью), но есть еще и второе - это направление цикла в зависимости от оптимизации это может быть или первый или второй символ # вот это уже похуже. Поэтому этот код нельзя считать рабочим, надо обеспечить две вещи действительность указателя и его правильность.

Я объяснил?


SVM   (2002-03-14 09:25:00) [2]

А нельзя использовать импорт из файла прямо в Accesse?


ProgMan   (2002-03-14 08:57:00) [3]

> Miwa © (14.03.02 01:19)
Возможно, уважаемый Anatoly Podgoretsky имел ввиду не это, но попробую ответить:
Счетчик цикла после окончания цикла имеет неопределенное значение.


Ирина   (2002-03-14 02:59:00) [4]

Удалено модератором


Miwa   (2002-03-14 01:19:00) [5]

2 Anatoly Podgoretsky © (13.03.02 22:38)

> по определению это не рабочий код, хотя выглядит таковым

Объясните, пожалуйста, почему? У меня вроде работает.


Anatoly Podgoretsky   (2002-03-13 22:38:00) [6]

Если содержимое именно такое, то
S := Copy(S,1,Pos("#",S)-1);
это вместо for/delete так как по определению это не рабочий код, хотя выглядит таковым


Miwa   (2002-03-13 22:27:00) [7]

Немного не понял сути вопросса. Может, вот это?

AssignFile(txtfile,"yourfile.txt");
Reset(txtfile);
while not eof(txtfile) do
begin
readln(txtfile,s);
for i:=1 to length(s) do if s[i]="#" then break;
delete(s,i,length(s));
//ну вот, теперь в переменной s у тебя то, что в строке до символа "#"
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо