[ Vladica Savić @ 26.03.2006. 09:56 ] @
Pozdrav ljudi, zanima me kako da odradim da kada se ucitava iz nekog FileListBox-a neki fajl (neka datoteka tipa *.vsf koju ja napravim) u kome je smesten neki tekst u obliku:
-----------------
bla, bla, bla
bla, bla, bla

Drugi deo

bla, bla, bla
bla, bla, bla

Treci deo

bla, bla, bla
bla, bla, bla
----------------
Tekst koji se nalazi u njoj bude redom dodeljen Memo kompanentama tako sto Memo1 dobije deo teksta koji se nalazi ispred reda u kome je "Drugi deo", Memo2 dobije deo teksta izmedju redova "Drugi deo" i "Treci deo" i u Memo3 se ucita preostali tekst koji je iza reda "Treci deo"

Nadam se da sam bio razumljiv...

---------------------
Pozdrav Vlada
---------------------
[ Bojan Kopanja @ 26.03.2006. 10:28 ] @
Potrazi malo na netu i na ovom forumu rad sa *.ini fajlovima posto to sto si opisao predstavlja upravo to ( nije bitno sto tebi nije extenzija *.ini ). Evo ti na ovoj adresi nesto vise o tome: http://delphi.about.com/od/objectpascalide/l/aa120401a.htm a posebno obrati paznju na nedostatke i ogranicenja koja su pri dnu opisana.

Drugi nacin je da citas red po red tu datoteku i ako naidjes na red recimo "Memo1" da od te linije u Memo1 ubacujes sve procitane linije dok ne naletis na liniju "Memo2" ili sl.

[Ovu poruku je menjao Strog dana 26.03.2006. u 11:33 GMT+1]
[ badam @ 27.03.2006. 09:37 ] @
Code:

procedure TForm1.Button1Click(Sender: TObject);
var Lista:TStringList;
    i,j:integer;
begin
  Lista:=TStringList.Create;
  Lista.LoadFromFile('c:\datoteka.vsf');
  j:=1;
  Memo1.Lines.Clear;
  Memo2.Lines.Clear;
  Memo3.Lines.Clear;
  for i:=0 to Lista.Count-1 do
  begin
    if Lista[i]='Drugi deo' then
      j:=2;
    if Lista[i]='Treci deo' then
      j:=3;
    if (Lista[i]<>'Prvi deo') and (Lista[i]<>'Drugi deo') and (Lista[i]<>'Treci deo') then
      TMemo(FindComponent('Memo'+IntToStr(j))).Lines.Append(Lista[i]);
  end;
  Lista.Free
end;

Pozdrav
[ Vladica Savić @ 28.03.2006. 16:39 ] @
Hvala, resio sam problem...