VPF::Бинарный файл что это за чудо? - Форум программистов

wake

Дата 22.11.2005, 14:17 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Привет! Дан код:

Код


var
I: Integer;
S: String;
begin
S:='Пример';
I:=50;
end;

Как можно сохранить S и I в бинарный файл, а потом считать и присвоить загруженное переменным S1(String) и I1(Integer)????

Snowy

Дата 22.11.2005, 14:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

А тебе для чего нужно?
Если для себя, то почитай справку про TWriter и TReader.

wake

Дата 22.11.2005, 14:23 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Делаю программу для хранения данных, паролей и прочей инфы...
А про справку щас гляну

Snowy

Дата 22.11.2005, 14:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Сохранить:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  wr: TWriter;
  fs: TFileStream;
  s: string;
  i:  integer;
begin
  fs:=TFileStream.Create('C:\1.dat',fmCreate);
  wr:=TWriter.Create(fs,1);
  S:='Пример';
  i:=50;
  wr.WriteInteger(i);
  wr.WriteString(s);
  wr.Free;
  fs.Free;
end;

Прочитать:

Код


procedure TForm1.Button2Click(Sender: TObject);
var
  rr: TReader;
  fs: TFileStream;
  s: string;
  i:  integer;
begin
  fs:=TFileStream.Create('C:\1.dat',fmOpenRead);
  rr:=TReader.Create(fs,1);
  i:=rr.ReadInteger;
  s:=rr.ReadString;
  rr.Free;
  fs.Free;
  ShowMessage(s+#13#10+IntToStr(i));
end;

Это сообщение отредактировал(а) Snowy - 22.11.2005, 14:31

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »