ламерский вопрос
_saha_ © (2002-10-29 13:43:00)
Корявость чтения данных при чтении данных (не текстовых) из
файла с помощью BlockRead: Какой задать тип переменной куда
кладется считываемая информация? Пробовал string - тогда нельзя
обратится к переменной, вылетает ошибка что-то там про
недоступность перменной, массив char - а как определить какого он
размера, если заранее неизвестно? Наверно можно как-то динамически
определять размер, но я не знаю как, подскажите, хотя было бы лучше
работать не с массивом.
VaS (2002-10-29 13:59:00) [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;
Наверх 
ЧАТ |
Орешник |
|
