Скачать: CL | DM;

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

← →
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му байту,.. нестоит...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c