Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.01.22;
Скачать: [xml.tar.bz2];

Вниз

чтение файла   Найти похожие ветки 

 
frezz   (2006-01-06 21:59) [0]

Приветствую всех.
как мне производить чтение из файла строками по 2048 символов?
или массивом байтов.


 
Johnmen ©   (2006-01-06 22:14) [1]

BlockRead+F1


 
ferr ©   (2006-01-06 22:20) [2]

TMemoryStream может поможет


 
Frezz   (2006-01-06 22:40) [3]

вот смотрите
нашел тут код

procedure TForm1.Button1Click(Sender: TObject);
const   Size=1024;
var myFile:File;
  Buf: array[1..Size] of Char;
  NumRead:dword;
  s:string;
  i:integer;
begin
s:="";
OpenDialog1.Execute;
AssignFile(myFile,OpenDialog1.FileName);
Reset(myfile,1);
  repeat
     BlockRead(MyFile, Buf,SizeOf(Buf), NumRead);
     if NumRead=Size then for i:=1 to size do s:=s+(buf[i]) else
     for i:=1 to Numread do s:=s+(buf[i]);
  until NumRead=0    ;
CloseFile(myFile);
Memo1.Text:=s;
end;



Однако если открываю не текстовый файл то вместо того что хотелось бы увидеть (ожидаю увидеть тоже самое что было бы в блокноте при открытии допустим ЕХЕ файла) а всего лишь несколько символов и все


 
ferr ©   (2006-01-06 22:48) [4]

там 0 - символ


 
ferr ©   (2006-01-06 22:51) [5]

string на него не реагирует.

а у мемо в Text PChar, этот тип читает до тех пор пока не встретит 0.

мне не понятна ваша затея, т.к. текстовые файлы это подкласс бинарных, -> просмотрщик текста не должен открывать бинарные файлы.


 
Германн ©   (2006-01-07 01:45) [6]


> Однако если открываю не текстовый файл то вместо того что
> хотелось бы увидеть (ожидаю увидеть тоже самое что было
> бы в блокноте при открытии допустим ЕХЕ файла)

А какой смысл увидеть то, что показывает блокнот в этом случае?
Может быть лучше напишешь, что именно тебе нужно? Мало ли что там делает блокнот при открытии не свойственных ему файлов.



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

Форум: "Начинающим";
Текущий архив: 2006.01.22;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.046 c
2-1135804455
aleyna
2005-12-29 00:14
2006.01.22
Font Size selector


3-1132682236
tyo
2005-11-22 20:57
2006.01.22
ProgressBar во время ExecProc


14-1135776219
Johnmen
2005-12-28 16:23
2006.01.22
Ностальгия по Дмитрию Олеговичу.


2-1136105979
The Sound_1
2006-01-01 11:59
2006.01.22
Обработка процедуры, при нажатии на кнопку.


14-1135706486
Serg1981
2005-12-27 21:01
2006.01.22
Ограничения БД Access





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский