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

Listview u txt fajl i obrnuto?

[es] :: Pascal / Delphi / Kylix :: Listview u txt fajl i obrnuto?

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

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

blastorix

Član broj: 152574
Poruke: 3
*.beobug.com.



Profil

icon Listview u txt fajl i obrnuto?27.07.2007. u 22:33 - pre 173 meseci
Zanima me da li se nekako moze sadrzaj listview-a prebaciti u tekstualni fajl?
Listview ima dve kolone, "ime" i "prezime", stavke treba prebaciti u txt fajl da u txt fajlu budu jedna ispod druge.
Znaci ako je u listview, "marko" i "markovic" u dve razlicite kolone (caption+subitem), kako da prebacim da u txt fajlu izgleda ovako:

marko
markovic

2. Kad sve to dobijem, kako da iz txt fajla sve to povratim u listview?
Ako txt fajl sadrzi nekoliko takvih stavki napisanih jedna uispod druge, kako da ih ucitam u listview?
 
Odgovor na temu

Nemanja_666
Nemanja Tatic
Gradiska

Član broj: 116292
Poruke: 221
217.23.204.*



+19 Profil

icon Re: Listview u txt fajl i obrnuto?28.07.2007. u 01:56 - pre 173 meseci
pokusaj ovako:
Code:

procedure TForm1.ToTxt(FileName : string);
var
  fTxt : TextFile;
  i : integer;
begin
  AssignFile(fTxt, FileName);
  Rewrite(fTxt);
  for i := 1 to ListView1.items.count do
    begin
      Writeln(fTxt, ListView1.Items.Item[i]);
      Writeln(fTxt, ListView1.Items.Item[i].SubItems.Strings[0]);
    end;
  Writeln(fTxt, '###end###');
  CloseFile(fTxt);
end;

procedure TForm1.ToList(FileName : string);
var
  fTxt : TextFile;
  i : integer;
  TempStr : string;
begin
  AssignFile(fTxt, FileName);
  Reset(fTxt);
  repeat
    Readln(fTxt, TempStr);
    if TempStr = '###end###' then break;
    with ListView1.Items.Add do
      begin
        Caption := TempStr;
        Readln(fTxt, TempStr);
        SubItems.Add(TempStr);
      end;
  until 1 = 2; //izgleda glupo
  CloseFile(fTxt);
end;

// i naravno nezaboravi deklarisati procedure

type
  TForm1 = class(TForm)
    ListView1: TListView;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ToTxt(FileName : string);
    procedure ToList(FileName : string);
  end;



Nadam se da ce pomoci!

Pozz
 
Odgovor na temu

blastorix

Član broj: 152574
Poruke: 3
*.beobug.com.



Profil

icon Re: Listview u txt fajl i obrnuto?28.07.2007. u 14:09 - pre 173 meseci
Hvala ali ne radi. :(

Code:

Writeln(fTxt, ListView1.Items.Item[i]);
Writeln(fTxt, ListView1.Items.Item[i].SubItems.Strings[0]);


-U writeln moras dati string a nadovezuje se jos jedan problem. Vrednosti Listview-a kao sto si ti naveo gore moraju biti dodeljene TListItem-u. Ako ja sve to dodam u TListItem (list:TListItem) a posle S:=list; dobijem:

Citat:

error: Incompatible types: 'String' and 'TListItem'
 
Odgovor na temu

Nemanja_666
Nemanja Tatic
Gradiska

Član broj: 116292
Poruke: 221
217.23.204.*



+19 Profil

icon Re: Listview u txt fajl i obrnuto?28.07.2007. u 14:25 - pre 173 meseci
Code:

Writeln(fTxt, ListView1.Items.Item[i]); = Writeln(fTxt, ListView1.Items.Item[i].Caption);


EDIT: X Files
stavljeno u CODE sekciju da se i-ti element ne bi reprodukovao kao Italic
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Listview u txt fajl i obrnuto?

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

Postavi temu Odgovori

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