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

← →
Rel_ (2003-06-04 09:24) [0]

Народ, просто не могу понять из-за чего трабла возникает - никогда раньше на такое не натыкался.

есть файл опред. типа F : file of TMyType
заливаю в него массив: Mas : array of TMyType

if ldgOpen.Execute then begin
AssignFile(F, AFileName);
ReWrite(F); (?????)
for i:=0 to Length(Mas) -1 do begin
Write(F,Mas[i]);
end;
CloseFile(F);
end;

Вот в месте (?????) возникает исключение: File is not find. при повторном запуске этой процедуры - всё нормально. Ну очень коряво дважды пользовать диалогом открытия для чтения файла!!!

Попробобывал встаку: {$I+} ---- {$I-} глюк исчез, затем снова проявился.

← →
Rel_ (2003-06-04 09:34) [1]

Народ, ну хоть кто-нибудь !!!

← →
han_malign (2003-06-04 10:09) [2]

if ldgOpen.Execute then begin
AssignFile(F, AFileName);

ldgOpen.FileName - не судьба?

← →
Chaos (2003-06-04 10:16) [3]

ну вот, и у тебя аналогичные проблемы...
никто толком не ответит,я уже спрашивал

← →
han_malign (2003-06-04 10:18) [4]

если имя файла кривое и его невозможно создать, что по вашему вам должна система ответить?

← →
chaos (2003-06-04 10:22) [5]

>han_malign
у меня то же самое происходит в ХР
имя файла вовсе не кривое,а asdfg.hjk
чем системе такое имя не понравится??

← →
icWasya (2003-06-04 10:24) [6]

может быть IOResult уже <>0 к моменту вызова Rewrite ???

← →
han_malign (2003-06-04 10:27) [7]

значит заблокировано и нельзя создать новый (Rewrite), где то не закрыл файл
> при повторном запуске этой процедуры... (см. CloseFile(F);)

← →
Chaos (2003-06-04 10:37) [8]

>han_malign
файл не открывался до этого
если нужны подробности посмотри мой вопрос,он недалеко там пример кода более обширный, ..
если файл создан-резет открывает со второго раза
если не создан-реврайт тоже перезаписывает со второго раза
после всех манипуляций файл ес-но закрывается
реврайт, насколько я помню даже открытый файл сначала закрывает, потом открывает заново..
файл не используется другими приложениями

← →
Anatoly Podgoretsky (2003-06-04 10:44) [9]

Rel_ (04.06.03 09:24)
Ошибка хза пределами этого кода и верояятнее всего в
AFileName и не понятно зачем здесь ldgOpen.Execute если он никак не используется, разве что для смены каталога.

← →
Chaos (2003-06-04 11:09) [10]

>Anatoly Podgoretsky
Могу привести полный код, уверен, что ошибки нет
та же проблема..опендиалог использую корректно

← →
Sandman25 (2003-06-04 11:26) [11]

Chaos © (04.06.03 11:09)

Не путайте Вашу программу с программой автора.

← →
Chaos (2003-06-04 11:33) [12]

>Sandman25
Если мне никто не ответил, то я надеялся хоть здесь найти решение

← →
Chaos (2003-06-04 11:34) [13]

>Sandman25
Если мне никто не ответил, то я надеялся хоть здесь найти решение
Чтож, извиняюсь, что влез в чужой вопрос

← →
Morfein (2003-06-04 11:51) [14]

Смотри http://delphimaster.net/view/1-1054631182/, пост Morfein (03.06.03 19:04)

← →
NickBat (2003-06-04 12:47) [15]

Зачем OpenDialogExecute если нет использования OpenDialog.FileName?
Все говорят об этом, а человек упорно твердит о "правильном" использовании OpenDialog....

← →
Rel_ (2003-06-04 13:17) [16]

Нет, народ, я просто допустил ошибку в примере - конечно вместо AfileName у меня написано - dlgOpen.FileName - ну и всё равно ничаго не работает. CloseFile я есесна отслеживаю.

Раньше вообще таких проблем не было - вот в первый раз - даже когда начинал писать энту прогу всё работало !!!

← →
Palladin (2003-06-04 13:21) [17]

покажы TMyType

← →
Rel_ (2003-06-04 13:25) [18]

ну, например

TTask = record
FOracleTable : string[40];
FDbTable, FSheme : string[60];
flReCreate : string[4];
FDefVal : string[30];
end;

← →
TButton (2003-06-04 13:26) [19]

вот. скажите мне почему у меня саве диалог виснет? причем виснет тока когда запускаю прогу из под Дэльфы. если просто откомпилять и запустить - все нормуль.

← →
Palladin (2003-06-04 13:45) [20]

в общем нужен реальный код, а не его олицетворение, причем и тот
кусок который работает до OpenDialog и вормирует имя файла

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