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

Вниз

Как из ексепшина EInOutError вытащить ErrorCode?   Найти похожие ветки 

 
iNew ©   (2003-02-11 04:30) [0]

//В хелпе нашел, что надо сделать так
type EInOutError = class(Exception)
ErrorCode: Integer;
end;
//дальше идет функция
procedure TPrintForm.cf(const FileName, DestName: TFileName);
var
FromF, ToF: file;
NumRead, NumWritten: Integer;
Buf: array[1..2048] of Byte;//Char;
begin
AssignFile(FromF, FileName);
Reset(FromF, 1); { Record size = 1 }
AssignFile(ToF,DestName); { Open output file }
Rewrite(ToF, 1); { Record size = 1 }
try
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
except
on EInOutError do
begin
// Здесь надо это ErrorCode

end;
end;
CloseFile(FromF);
CloseFile(ToF);
end;


 
jack128 ©   (2003-02-11 04:38) [1]

try
...
except
on E : EInOutError do begin
E.ErrorCode // И делай с этим кодом чего душа желает :)
end;
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.026 c
7-53316
der
2002-12-15 17:24
2003.02.17
shift+page_down в dbgrid


14-53225
han_malign
2003-01-31 10:07
2003.02.17
Ктайский новый год...


14-53203
Карелин Артем
2003-01-31 15:43
2003.02.17
Загоны домашних животных.


1-52918
AndSoft
2003-02-08 19:20
2003.02.17
Дизайн в runtime


1-52889
beginner (!)
2003-02-08 09:10
2003.02.17
Собственный формат данных