[Nekromant Set'а]

Скажите, как записать значение переменной строки и числа в поток, а потом считать обратно???

[moo2k]

Создай несколько потоков типа TStream и переменную типа Byte. И затем, чтобы прочитать используй TFileStream.Create(OpenDialog1.FileName,fmOpenRead ), а для записи TFileStream.Create(SaveDialog1.FileName,fmCreate).

[Nekromant Set'а]

я имел в виду не это... Мне нужна сама процедура записи строки в поток...

[zip000]

Запись

Код:

var
  f : TFileStream;
  s : String;
  i : Integer;
begin
  f := TFileStream.Create('c:\1.txt', fmCreate);
  s := 'Эту строку запишем в файл';
  f.Write(PChar(s)^, Length(s)); // запись строки
  i := 10000;
  f.Write(i, SizeOf(i)); // запись числа, второй параметр это количество записываемых байт, тип Integer это 4 байта, для определения размера переменной (в байтах) можно использовать ф-цию SizeOf
  f.Free;
end;

Чтение. Тут есть одно но, надо либо знать длину строки, либо записывать длину строки перед самой строкой, либо в конце строки записывать какое-то число признак окончания строки, например 0 и считывать по 1 символу, пока не найдем 0 - признак конца строки.

Код:

var
  f : TFileStream;
  s : String;
  i : Integer;
begin
  f := TFileStream.Create('c:\1.txt', fmOpenRead);
  SetLength(s, Your_string_lenth); // Это если мы знаем заранее длину строки
  f.Read(PChar(s)^, Length(s)); // чтение строки
  f.Read(i, SizeOf(i)); // чтение числа
  f.Free;
end;

[Nekromant Set'а]

Гуд спсб...