чтение из файла

← →
~Alice~ © (2002-03-13 22:20) [0]

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

← →
Miwa © (2002-03-13 22:27) [1]

Немного не понял сути вопросса. Может, вот это?
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;

← →
Anatoly Podgoretsky © (2002-03-13 22:38) [2]

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

← →
Miwa © (2002-03-14 01:19) [3]

2 Anatoly Podgoretsky © (13.03.02 22:38)

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

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

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

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

← →
ProgMan © (2002-03-14 08:57) [5]

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

← →
SVM (2002-03-14 09:25) [6]

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

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

Я объяснил?

чтение из файла Найти похожие ветки