[es] - Listview u txt fajl i obrnuto?

blastorix

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

Profil

^{27.07.2007. u 22:33 - pre 203 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

Re: Listview u txt fajl i obrnuto?

^{28.07.2007. u 01:56 - pre 203 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

Re: Listview u txt fajl i obrnuto?

^{28.07.2007. u 14:09 - pre 203 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

Re: Listview u txt fajl i obrnuto?

^{28.07.2007. u 14:25 - pre 203 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