delphi memory/string stream

skusil som to est etakto obklukou:

 AssignFile(suborDochadzka,SuborStiahnutaDochadzka);
    Reset(suborData);
    while not eof(suborData) do
    begin
       readln(suborData,riadok);
       zdrojak.WriteString(riadok);
    end;
    Close(suborData);

a ani takto to nejde-nenacita to cely subor-subor je pritom spravny.

Nepochopil jsem, co tim kodem chces dosahnout.
Stringy obecne skonci znakem #0, takze pokud tento znak je v datech a oddeluje nejake davky, nepouzivej TStringStream apod.

chcem dosiahnut to, ze zdrojovy kod stranky nacitam zo suboru do stringstreamu aby som s nim mohol pracovat(pomocou funkcii pos a posex hladat udaje ktore potrebujem na dalsiu pracu.)

edit: pises, ze nemam pouzivat stringstream-ako inac sa to da spravit?
a nie som si isty s tym #0, lebo ono to skonci v strede slova.

pouzil by som c#, ktory taktiez zvladam, ale nie som si isty, ci budem moct nainstalovat netframework na stroji na ktorom to chcem spustit.

Nepotrebujes StringStream, zkus mito toho pouzit TStringList - je to kolekce retezcu.

var
  sl: TStringList;
begin
  sl := TStringList.Create;
  sl.LoadFromFile(jmeno_souboru);
  sl.Add('Pridam retezec');
  sl.Strings[1] := Copy(sl.Strings[1], 1, 10);  // upravim radek
  sl.Delete(2);  // smazu retezec s indexem 3
  sl.SaveToFile(jmeno_souboru);
end;

TStringStream je takovy divny hybrid.
Kdyz pracujes se streamem, musis si hlidat velikost apod.

Zkus sem dat priklad souboru, ktery zpracovavas.
Neni problem zdrojovy kod webove stranky stahnout primo do TStringList a pak prochazet bez nutnosti jakychkoliv mezisouboru.

Potrebuješ zistiť výskyt nejakého reťazca v súbore? Aspoň tak som to pochopil....

Ja by som to riešil asi takto:

function PosInFile(Str,FileName:string):integer;
 var
   Buffer:array[0..1023]of char;
   BufPtr,BufEnd:integer;
   F:File;
   Index:integer;
   Increment:integer;
   c:char;

 function NextChar:char;
 begin
   if BufPtr>=BufEnd then
   begin
     BlockRead(F,Buffer,1024,BufEnd);
     BufPtr := 0;
     Form1.ProgressBar1.Position := FilePos(F);
     Application.ProcessMessages;
   end;
   Result := Buffer[BufPtr];
   Inc(BufPtr);
 end;

 begin
   Result := -1;
   AssignFile(F,FileName);
   Reset(F,1);
   Form1.ProgressBar1.Max := FileSize(F);
   BufPtr:=0;
   BufEnd:=0;
   Index := 0;
   Increment := 1;
   repeat
     c:=NextChar;
     if c=Str[Increment] then
       Inc(Increment)
     else
     begin
       Inc(Index,Increment);
       Increment := 1;
     end;
     if Increment=(Length(Str)+1) then
     begin
       Result := Index;
       Break;
     end;
   until BufEnd = 0;
   CloseFile(F);
   Form1.ProgressBar1.Position := 0;
 end;