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

Вниз

ламерский вопрос   Найти похожие ветки 

 
_saha_   (2002-10-29 13:43) [0]

Корявость чтения данных при чтении данных (не текстовых) из файла с помощью BlockRead: Какой задать тип переменной куда кладется считываемая информация? Пробовал string - тогда нельзя обратится к переменной, вылетает ошибка что-то там про недоступность перменной, массив char - а как определить какого он размера, если заранее неизвестно? Наверно можно как-то динамически определять размер, но я не знаю как, подскажите, хотя было бы лучше работать не с массивом.


 
VaS ©   (2002-10-29 13:59) [1]

Есть такая клавиша - F1


var

FromF, ToF: file;
NumRead, NumWritten: Integer;
Buf: array[1..2048] of Char;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(FromF, OpenDialog1.FileName);
Reset(FromF, 1); { Record size = 1 }
if SaveDialog1.Execute then { Display Save dialog box}
begin
AssignFile(ToF, SaveDialog1.FileName); { Open output file }

Rewrite(ToF, 1); { Record size = 1 }
Canvas.TextOut(10, 10, "Copying " + IntToStr(FileSize(FromF))
+ " bytes...");
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FromF);
CloseFile(ToF);
end;
end;
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.02 c
14-21802
D_B
2002-10-17 08:59
2002.11.07
Что за профессия - эникейщик ?


3-21374
CashDi
2002-10-17 15:11
2002.11.07
Установка клиента


14-21790
MJH
2002-10-19 16:38
2002.11.07
win2151 -> utf-8


14-21761
Beginner-Designer
2002-10-13 22:37
2002.11.07
Про прокси


3-21442
Shadow
2002-10-20 20:52
2002.11.07
У меня прога использует BDE, а на другой машине нет BDE. Ошибка