Строки и файлы

← →
Goblinus (2002-07-15 12:35) [0]

Подскажите, пожалуйста, как мна считать содержимое файла в переменную типа String? И как записать в файл содержимое этой переменной?

← →
Yuri-7 (2002-07-15 12:42) [1]

Загрузи файл в TStringList, а у него есть свойство Text - типа string.

← →
Opuhshii (2002-07-15 13:21) [2]

Вы уверены что все содержимое файла может быть записано в переменную типа String?,..

procedure TForm1.Button1Click(Sender: TObject);
var
MyFileStream:TFileStream;
MyStringStream:TStringStream;
begin
MyFileStream:=TFileStream.Create("C:\Test.txt",fmOpenReadWrite);
MyStringStream:=TStringStream.Create("");
MyFileStream.Seek(0,soFromBeginning);
MyStringStream.CopyFrom(MyFileStream,MyFileStream.Size );
Showmessage(MyStringStream.DataString);
MyFileStream.Free;
MyStringStream.Free;
end;

← →
Builder (2002-07-15 14:06) [3]

Для стринга
var
b : vyte;
d:string;
FByte : file of byte;
begin
AssignFile(FByte, FileName);
Reset(FByte);
d:="";
While Not EOF(FByte) Do
Begin
Read(FByte, b);
d := d + Chr(b);
End;
end;
CloseFile(FByte);

IMHO - стрингом это делать :)

← →
Opuhshii (2002-07-15 14:28) [4]

2Goblinus ©
если размер файла относительно невелик то можно использовать оба варианта,.. но при размере уже в 1-2 мегабайт читать по 1му байту,.. нестоит...

Строки и файлы Найти похожие ветки