Форум: "Потрепаться";
Текущий архив: 2004.04.04;
Скачать: [xml.tar.bz2];

Вниз

Srting.LoadFromFile(const Filename:string; var s:string);   Найти похожие ветки 

← →
RealRascal ©   (2004-03-07 15:54) [0]

var Mem:TMemoryStream;
   SS:TStringStream;
Begin
Try
Mem:=TMemoryStream.Create;
SS:=TStringStream.Create("");
Mem.LoadFromFile(filename);
SS.CopyFrom(Mem, Mem.Size);
Mem.Free;
s:=SS.DataString;
SS.Free;
except
Showmessage("Not enought memory or file does not exists");
end;
end;
//Relax, man. It"s just a joke.
Вот уж действительно гланды через задний проход...

---

← →
RealRascal ©   (2004-03-07 16:01) [1]

подсветить забыл
var Mem:TMemoryStream;
  SS:TStringStream;
Begin
Try
Mem:=TMemoryStream.Create;
SS:=TStringStream.Create("");
Mem.LoadFromFile(filename);
SS.CopyFrom(Mem, Mem.Size);
Mem.Free;
s:=SS.DataString;
SS.Free;
except
Showmessage("Not enought memory or file does not exists");
end;
end;

---

← →
RealRascal ©   (2004-03-11 06:19) [2]

А есть другие способы загнать файл в строку?

---

← →
VMcL ©   (2004-03-11 07:47) [3]

TStrings.LoadFromFile + TStrings.Text подойдет?

---

← →
VMcL ©   (2004-03-11 07:51) [4]

Или лучше как-то так:

function GetFileAsString(const AFileName: String): String;
var
 FS: TFileStream;
 Len: Integer;
begin
 FS := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);
 try
   Len := FS.Size;
   SetLength(Result, Len);
   FS.ReadBuffer(PChar(Result)^, Len);
 finally
   FS.Free;
 end;
end;

---

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

Форум: "Потрепаться";
Текущий архив: 2004.04.04;
Скачать: [xml.tar.bz2];

Наверх

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