Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.06;
Скачать: CL | DM;

Вниз

Ошибка при импорте текстового файла с разделителем   Найти похожие ветки 

 
ruslan_as ©   (2002-04-22 10:15) [0]

На строке "while not SeekEOF(PathFile) do" вылезает ошибка I/O error 6. Пробовал "while not EOF(PathFile) do" тоже самое. В чем проблема.


procedure TfmVersion.Button2Click(Sender: TObject);
var
PathFile: TextFile;
ss,Path_,Platform: string;
Sep: char;
ii: integer;
VI: TOSVersionInfo;
begin
VI.dwOSVersionInfoSize := SizeOf(VI);
GetVersionEx(VI);
case VI.dwPlatformID of
VER_PLATFORM_WIN32_WINDOWS:Platform:="Windows 95/98";
VER_PLATFORM_WIN32_NT:Platform:="Windows NT";
end;
if Platform="Windows NT"
then Path_:="W:\Document\Общая\Ruslan\Install\God\Path2000.txt";
if Platform="Windows 95/98"
then Path_:="U:\Общая\Ruslan\Install\God\Path98.txt";
AssignFile(PathFile, Path_);
Sep:=#59; {разделитель ";"}
AssignFile(PathFile,"");
Reset(PathFile);
while not SeekEOF(PathFile) do
begin
ReadLn(PathFile,ss);
ii:=0;
while pos(Sep,ss)<>0 do
begin
Memo1.Lines.Add(Copy(ss,1,Pos(Sep,ss)));
Delete(ss,1,pos(Sep,ss));
Inc(ii);
end;
Memo1.Lines.Add(ss);
end;
CloseFile(PathFile);
end;


 
Song ©   (2002-04-22 10:23) [1]


Вот эту строку выкинуть: AssignFile(PathFile,""); Зачем второй раз пересвязывать?
И далее:
...
While not Eof(PathFile) Do
Begin
...


 
Song ©   (2002-04-22 10:27) [2]

А зачем Вам ii?


 
Anatoly Podgoretsky ©   (2002-04-22 10:37) [3]

Не поможет, текстовые файлы тольео последовательного доступа


 
Anatoly Podgoretsky ©   (2002-04-22 10:44) [4]

Извиниясь перепутал с SEEK, а ошибка вот здесь

AssignFile(PathFile, Path_);
Sep:=#59; {разделитель ";"}
!!! AssignFile(PathFile,"");

Переназнвчаешь!


 
ruslan_as ©   (2002-04-22 10:52) [5]

Спасибо! Увлекся со связыванием...



Страницы: 1 вся ветка

Текущий архив: 2002.05.06;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.013 c
14-17699
greenrul
2002-03-27 17:07
2002.05.06
Вот мы все пишем, пишем, пишем свои утилитки...


14-17688
Vladimir ;)
2002-03-28 22:55
2002.05.06
ЗАЦЕНИТЕ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


1-17634
lipskiy
2002-04-22 23:58
2002.05.06
Как прикрутить PopupMenu к одному из пунктов MainMenu?


1-17606
Vint
2002-04-20 22:35
2002.05.06
Нужна идея!


3-17496
Limonad
2002-04-12 14:53
2002.05.06
Знатоки, почему по выходу из приложения программа ругается