Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Rad sa datotekama-Podela datoteke na segmente?

[es] :: Pascal / Delphi / Kylix :: Rad sa datotekama-Podela datoteke na segmente?

[ Pregleda: 2991 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Vladica Savić
Software Developer
Toronto, Canada

Član broj: 26699
Poruke: 654



+5 Profil

icon Rad sa datotekama-Podela datoteke na segmente?26.03.2006. u 09:56 - pre 192 meseci
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
---------------------
 
Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
80.93.238.*

ICQ: 346697685
Sajt: www.zeussoftware.rs


Profil

icon Re: Rad sa datotekama-Podela datoteke na segmente?26.03.2006. u 10:28 - pre 192 meseci
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]
 
Odgovor na temu

badam

Član broj: 78553
Poruke: 97
*.stcable.co.yu.



+2 Profil

icon Re: Rad sa datotekama-Podela datoteke na segmente?27.03.2006. u 09:37 - pre 192 meseci
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
 
Odgovor na temu

Vladica Savić
Software Developer
Toronto, Canada

Član broj: 26699
Poruke: 654



+5 Profil

icon Re: Rad sa datotekama-Podela datoteke na segmente?28.03.2006. u 16:39 - pre 192 meseci
Hvala, resio sam problem...
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Rad sa datotekama-Podela datoteke na segmente?

[ Pregleda: 2991 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.