Написал,но вкралась ошибка( выделена восклицательным знаком)

← →
sanekgyrev (2013-06-08 20:44) [0]

procedure TForm1.N11Click(Sender: TObject);
var
x,n, oc1,oc2,oc3,i:integer;
fam:string[12]; gr:string[10];
a,str,fam1,gr1:string;
f,f1:textfile;
flag:boolean;
begin
flag:=true;
if form1.opendialog1.execute then
begin s:=opendialog1.filename;
assignfile(f,s);
reset(f);
fam1:=copy(memo1.Lines[0],14,12);
if fileexists(s+"(изм)") then rewrite(f1)
else append(f1); /////!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
while not eof(f) do
begin
readln(f,n,gr,fam,oc1,oc2,oc3);
if (trim(fam1)<trim(fam)) and (flag) then
begin
writeln(f1,memo1.lines[0]);
flag:=false;
end;
writeln(f1,n,gr,fam,oc1,oc2,oc3);
end;
closefile(f);
closefile(f1);
end;
end;

← →
Германн © (2013-06-08 20:47) [1]

И в чем проблема?

← →
sanekgyrev (2013-06-08 20:53) [2]

выдает ошибку Project Project2.exe raised exception class EInOutError with message "I/O error 102".Process stopped.Use Step or Run to continue.

← →
sanekgyrev (2013-06-08 20:54) [3]

http://www.pictureshack.ru/images/56947_Bezymyannyi.png

← →
sanekgyrev (2013-06-08 20:55) [4]

в упорядоченный по фамилиям файл (исходный файл задать упорядоченным), заданный пользователем в диалоге, добавить новую строку, заданную в окне редактора текста, сохранив упорядоченность по фамилиям (использовать второй файл). вот такое заданиеювсе попробовал ничего не помогает

← →
Dimka Maslov © (2013-06-08 21:28) [5]

Что делают reset, rewrite и append? Прочитаешь - поймёшь, что у тебя не правильно.

← →
Германн © (2013-06-09 03:00) [6]

> sanekgyrev (08.06.13 20:53) [2]
>
> выдает ошибку Project Project2.exe raised exception class
> EInOutError with message "I/O error 102"

File not found. (Файл не найден).

← →
[ВладОшин] © (2013-06-09 11:59) [7]

> if fileexists(s+"(изм)") then rewrite(f1)
> else append(f1); /////!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
> !!!!

если в моем кошельке есть 100 рублец то
взять из фиг знает какого кошелька 100 рублей.
понятно, что не понятно откуда брать )

о чем и сказано "I/O error 102"

> File not found. (Файл не найден).
>

← →
FileExists (2013-06-09 12:39) [8]

Вместо
if fileexists(s+"(изм)") then // здесь нужен append, а у тебя rewrite
правильнее
if NOT fileexists(s+"(изм)") then
и далее по твоему коду ...

← →
FileExists (2013-06-09 12:39) [9]

← →
FileExists (2013-06-09 12:39) [10]

Sorry ...

только не забудьте что assignfile в процедуре следует использовать не более 1го раза, а то работать будет правильно

Написал,но вкралась ошибка( выделена восклицательным знаком) Найти похожие ветки