Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 запись и чтение с файла  [new]
bas02
Member

Откуда:
Сообщений: 286
что делаю не так?
читает не то что записываю


procedure TfmMain.Button3Click(Sender: TObject);
var
InputFile:TFileStream;
begin

InputFile:=TFileStream.Create('C:\db.txt',fmOpenWrite);
InputFile.WriteData('A',1);
InputFile.Free;

end;

procedure TfmMain.Button4Click(Sender: TObject);
var
InputFile:TFileStream;
var Buffer: array [0..0] of char;
begin

InputFile:=TFileStream.Create('C:\db.txt',fmOpenRead);
InputFile.Seek(0, soFromBeginning);
InputFile.ReadBuffer(Buffer,1);
ch:=(Buffer[0]);
Memo1.Text:=ch;
InputFile.Free;

end;


Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста.
10 мар 19, 01:33    [21828602]     Ответить | Цитировать Сообщить модератору
 Re: запись и чтение с файла  [new]
rgreat
Member

Откуда:
Сообщений: 4949
Длина указывается в байтах а не символах.

Если у тебя не древняя дельфи то зы записываешь и считваешь пол символа. А что там во втрой половине - тайна покрытая мраком.
10 мар 19, 01:43    [21828605]     Ответить | Цитировать Сообщить модератору
 Re: запись и чтение с файла  [new]
GunSmoker
Member

Откуда:
Сообщений: 3102
https://www.gunsmoker.ru/2011/11/blog-post_12.html
10 мар 19, 13:37    [21828689]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить