Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

sanekgyrev © (2013-06-08 20:44:00)
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-09 22:42:00) [1]
только не забудьте что assignfile в процедуре следует использовать не более 1го раза, а то работать будет правильно

FileExists (2013-06-09 12:39:00) [2]
Вместо
if fileexists(s+'(изм)') then// здесь нужен append, а у тебя rewrite
правильнее
if NOTfileexists(s+'(изм)')then
и далее по твоему коду ...

FileExists (2013-06-09 12:39:00) [3]
Вместо
if fileexists(s+'(изм)') then// здесь нужен append, а у тебя rewrite
правильнее
if NOTfileexists(s+'(изм)')then
и далее по твоему коду ...

FileExists (2013-06-09 12:39:00) [4]
Sorry ...

[ВладОшин] (2013-06-09 11:59:00) [5]

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

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

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

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

Германн (2013-06-09 03:00: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. (Файл не найден).

Dimka Maslov (2013-06-08 21:28:00) [7]
Что делают reset, rewrite и append? Прочитаешь - поймёшь, что у тебя не правильно.

sanekgyrev (2013-06-08 20:55:00) [8]
в упорядоченный по фамилиям файл (исходный файл задать упорядоченным), заданный пользователем в диалоге, добавить новую строку, заданную в окне редактора текста, сохранив упорядоченность по фамилиям (использовать второй файл). вот такое заданиеювсе попробовал ничего не помогает

sanekgyrev (2013-06-08 20:54:00) [9]
http://www.pictureshack.ru/images/56947_Bezymyannyi.png

sanekgyrev (2013-06-08 20:53:00) [10]
выдает ошибку Project Project2.exe raised exception class EInOutError with message 'I/O error 102'.Process stopped.Use Step or Run to continue.

Германн (2013-06-08 20:47:00) [11]
И в чем проблема?

Наверх

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