Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Строки и файлы [D6, Win2k]

Goblinus © (2002-07-15 12:35:00)
Подскажите, пожалуйста, как мна считать содержимое файла в переменную типа String? И как записать в файл содержимое этой переменной?

Opuhshii (2002-07-15 14:28:00) [1]
2Goblinus ©
если размер файла относительно невелик то можно использовать оба варианта,.. но при размере уже в 1-2 мегабайт читать по 1му байту,.. нестоит...

Builder (2002-07-15 14:06:00) [2]
Для стринга
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 13:21:00) [3]
Вы уверены что все содержимое файла может быть записано в переменную типа 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;

Yuri-7 (2002-07-15 12:42:00) [4]
Загрузи файл в TStringList, а у него есть свойство Text - типа string.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »