» »

[Delphi]Nadomeščnaje streama s stringom

[Delphi]Nadomeščnaje streama s stringom

KrCbelca ::

Pozdrav!

Kakor razumem naslednjo kodo, izbere vir test.html in da vsebino v buffer:
S: String;
F: TStream;
  begin 
    F := TFileStream.Create(test.html, fmOpenRead);
    try
      SetLength(S, F.Size);
      F.ReadBuffer(S[1], F.Size)
    finally
      F.Free
  end;


Če je temu res tako, me zanima, kako bi nadomestil test.html z stringom iz Memo1.Lines.text, da bi v buffer naložil vsebino Memo1
C2Q Q6600, P5W DH Deluxe,6GB 800MHz Rama
GF 8600gt, 2xSataII WD 250GB, LC Power 550W Green Power
----watter in my vains----

krho ::

Nad tole kodo bom rekel samo LOL, zakaj bi sploh bral html preko streama, če že beremo celega.
Zakaj za vraga ne takole:

var lst: TStringList;
begin
  if not FileExists('test.html') then
    Exit;
  lst := TStringList.Create;
  try
    lst.LoadFromFile('test.html');
s := lst.Text;
  finally
   FreeAndNil(lst);
  end;


drugače pa samo naredi
memo.Lines.SaveToFile('filename.txt');

Pritisk F1 nad objektom v pogledu izvorne kode bi pomagal.
Pa menda dela tudi autocomplete, ko pritisneš. ti pokaže seznam funkcij, procedur in propertyev, če ne pa Ctrl+Space:\
si.Mail odprto-kodni odjemalec elektronske pošte. - http://www.simail.si
Uredite si svojo zbirko filmov, serij in iger - http://xcollect.sf.net


Vredno ogleda ...

TemaSporočilaOglediZadnje sporočilo
TemaSporočilaOglediZadnje sporočilo
»

[JS] Event, ko se stran naloži po "back" gumbu?

Oddelek: Programiranje
292541 (1809) Spura
»

mailto: attachment

Oddelek: Izdelava spletišč
51110 (1029) Tilen007
»

makro

Oddelek: Programiranje
81146 (971) draganm1
»

izdelava podstrani

Oddelek: Izdelava spletišč
121981 (1811) Bob Rock
»

kako do htmlja, ki nastane pri obdelavi php

Oddelek: Programiranje
8939 (813) lordgreg

Več podobnih tem