Форум: "Основная";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];
Вниз
Глючит программа Найти похожие ветки
← →
TopGun (2002-09-16 20:21) [0]Код:
var srcfile: TFileStream;
Buf:PChar;
BufSize:integer;
begin
BufSize:=4056;
srcfile := TFileStream.Create(filename,fmOpenRead);
GetMem(Buf,BufSize+1);
srcfile.WriteBuffer(buf,BufSize);// - ОШИБКА !
В Filename хранится имя файла (правильное).
Почему возникает ошибка ?
← →
777 (2002-09-16 21:09) [1]
> srcfile := TFileStream.Create(filename,fmOpenReadWrite);
вообще в хелпе полезно посмотреть fmOpen...
← →
TopGun (2002-09-16 21:15) [2]К сожалению, хелпа у меня нету
← →
TopGun (2002-09-16 23:54) [3]В пример вкралась ошибка !
Не srcfile.WriteBuffer(buf,BufSize), а srcfile.ReadBuffer(buf,BufSize)
То есть текст программы таков:
var srcfile: TFileStream;
Buf:PChar;
BufSize:integer;
begin
BufSize:=4056;
srcfile := TFileStream.Create(filename,fmOpenRead);
GetMem(Buf,BufSize+1);
srcfile.ReadBuffer(buf,BufSize);// - ОШИБКА !
Почему ошибка ?
← →
777 (2002-09-17 00:36) [4]
var srcfile: TFileStream;
Buf:PChar;
BufSize:integer;
begin
BufSize:=4056;
srcfile := TFileStream.Create(FileName,fmOpenRead);
GetMem(Buf,BufSize+1);
srcfile.Position:=0;
srcfile.Read(buf^,bufsize);
← →
TopGun (2002-09-17 17:12) [5]Ой я баран....
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c
