Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.25;
Скачать: 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 вся ветка

Текущий архив: 2002.07.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
3-81170
KIR
2002-07-03 01:04
2002.07.25
Что за ошибка Paradox


3-81194
DmitryN
2002-07-05 08:25
2002.07.25
SQLDMO not registered...????


1-81352
Macuca
2002-07-13 15:14
2002.07.25
Массив элементов управления


3-81128
Vicheslav
2002-07-03 13:10
2002.07.25
Помогите с Проектированием таблиц.


14-81469
igorr
2002-06-28 12:25
2002.07.25
Программисты