Ĺadny brzuch
Mam problem, chce zeby przy zdarzeniu OnShow form3 ładowało z 1 pliku kilka zmiennych, a plik ma tak wyglądać:
Imie=Nazwisko
Imie2=Nazwiko2
(...)
Chce zeby ładowało "Imie" i Imie1" do kolumny pierwszej a "Nazwisko" i "Nazwisko2" do drugiej jak to zrobić???
:pomocy:
Mam problem, chce zeby przy zdarzeniu OnShow form3 ładowało z 1 pliku kilka zmiennych, a plik ma tak wyglądać:
Imie=Nazwisko
Imie2=Nazwiko2
(...)
Chce zeby ładowało "Imie" i Imie1" do kolumny pierwszej a "Nazwisko" i "Nazwisko2" do drugiej jak to zrobić???
:pomocy:
ListView, a potem do listBox-a
ListView, a potem do listBox-a
nie wiem czy dziala, bo komp mi sie wiesznął, ale rozujmien ten tekst w 100%, bo robilem to samo w rejestrze.Dzieki za ten przykład i reszte.
nie wiem czy dziala, bo komp mi sie wiesznął, ale rozujmien ten tekst w 100%, bo robilem to samo w rejestrze.Dzieki za ten przykład i reszte.
nie dziala <_<
Pisze klienta GG i chce wbudowac w niego zarzadzanie kontaktami i idzie mi dobrze pisze go juz 1 dzien i mam prawie wszystko oprócz zarzadzania kontaktami.
nie dziala <_<
nie wczytuje do listView!!!
nie wczytuje do listView!!!
tak.. al emoj plik to noner.INI a wkodzie podales DAT nie wiem czy to to.
tak.. al emoj plik to noner.INI a wkodzie podales DAT nie wiem czy to to.
var F: TextFile; LV: TlistItem; linia: string; begin LV := ListView1.Items.Add; AssignFile(F, 'C:\plik.txt'); Reset(F); try while not Eof(F) do begin readln(F, linia); LV.Caption := Copy(linia, 0, Pred(Pos('=', linia))); LV.SubItems.Add(Copy(linia, Succ(Pos('=', linia)), Length(linia))); end; finally CloseFile(F); end; end;
:unsure:
edit:
// #11 :lol:
Użytkownik p1101 edytował ten post 08 lipiec 2005, 18:08
I co,działa ?? :D
Twoj kod Br@iner nie!! a p1101 nie wiem bo nie sprawdzałem ale sprawdzam..
A zmieniłeś format pliku na taki jak napisałem ??
tak i to na rozne i twoj i inne i nic nie dziala!!
Tworzy w listview puste okienko, ale nie ładuje do niego z pliku
COś jest skopane... <_<
tak i to na rozne i twoj i inne i nic nie dziala!!
Tworzy w listview puste okienko, ale nie ładuje do niego z pliku
COś jest skopane... <_<
p1101 ale twoj czy Br@inera?
Twojego nie sprawdzalem(wole krótsze);
i z INIFILES
Masz i się ciesz - poprawiony kod Br@inera:uses IniFiles; procedure TForm1.Button1Click(Sender: TObject); var Ini: TIniFile; ListItem: TListItem; begin Ini := TIniFile.Create('c:\plik.dat'); with ListView1.Items.Add do begin Caption := Ini.ReadString('sekcja', 'Imie', ''); SubItems.Add(Ini.ReadString('sekcja', 'Nazwisko', '')); end; with ListView1.Items.Add do begin Caption := Ini.ReadString('sekcja', 'Imie2', ''); SubItems.Add(Ini.ReadString('sekcja', 'Nazwisko2', '')); end; Ini.Free; end;
Użytkownik Cyrkiel edytował ten post 08 lipiec 2005, 18:25
dzieki :D
Jak macie jakies propozycje kodu to piszcie tutaj :)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Imie=Nazwisko
Imie2=Nazwiko2
(...)
Chce zeby ładowało "Imie" i Imie1" do kolumny pierwszej a "Nazwisko" i "Nazwisko2" do drugiej jak to zrobić???
:pomocy:
Mam problem, chce zeby przy zdarzeniu OnShow form3 ładowało z 1 pliku kilka zmiennych, a plik ma tak wyglądać:
Imie=Nazwisko
Imie2=Nazwiko2
(...)
Chce zeby ładowało "Imie" i Imie1" do kolumny pierwszej a "Nazwisko" i "Nazwisko2" do drugiej jak to zrobić???
:pomocy:
ListView, a potem do listBox-a
ListView, a potem do listBox-a
nie wiem czy dziala, bo komp mi sie wiesznął, ale rozujmien ten tekst w 100%, bo robilem to samo w rejestrze.Dzieki za ten przykład i reszte.
nie wiem czy dziala, bo komp mi sie wiesznął, ale rozujmien ten tekst w 100%, bo robilem to samo w rejestrze.Dzieki za ten przykład i reszte.
nie dziala <_<
Pisze klienta GG i chce wbudowac w niego zarzadzanie kontaktami i idzie mi dobrze pisze go juz 1 dzien i mam prawie wszystko oprócz zarzadzania kontaktami.
nie dziala <_<
nie wczytuje do listView!!!
nie wczytuje do listView!!!
tak.. al emoj plik to noner.INI a wkodzie podales DAT nie wiem czy to to.
tak.. al emoj plik to noner.INI a wkodzie podales DAT nie wiem czy to to.
var F: TextFile; LV: TlistItem; linia: string; begin LV := ListView1.Items.Add; AssignFile(F, 'C:\plik.txt'); Reset(F); try while not Eof(F) do begin readln(F, linia); LV.Caption := Copy(linia, 0, Pred(Pos('=', linia))); LV.SubItems.Add(Copy(linia, Succ(Pos('=', linia)), Length(linia))); end; finally CloseFile(F); end; end;
:unsure:
edit:
// #11 :lol:
Użytkownik p1101 edytował ten post 08 lipiec 2005, 18:08
I co,działa ?? :D
Twoj kod Br@iner nie!! a p1101 nie wiem bo nie sprawdzałem ale sprawdzam..
A zmieniłeś format pliku na taki jak napisałem ??
tak i to na rozne i twoj i inne i nic nie dziala!!
Tworzy w listview puste okienko, ale nie ładuje do niego z pliku
COś jest skopane... <_<
tak i to na rozne i twoj i inne i nic nie dziala!!
Tworzy w listview puste okienko, ale nie ładuje do niego z pliku
COś jest skopane... <_<
p1101 ale twoj czy Br@inera?
Twojego nie sprawdzalem(wole krótsze);
i z INIFILES
Masz i się ciesz - poprawiony kod Br@inera:uses IniFiles; procedure TForm1.Button1Click(Sender: TObject); var Ini: TIniFile; ListItem: TListItem; begin Ini := TIniFile.Create('c:\plik.dat'); with ListView1.Items.Add do begin Caption := Ini.ReadString('sekcja', 'Imie', ''); SubItems.Add(Ini.ReadString('sekcja', 'Nazwisko', '')); end; with ListView1.Items.Add do begin Caption := Ini.ReadString('sekcja', 'Imie2', ''); SubItems.Add(Ini.ReadString('sekcja', 'Nazwisko2', '')); end; Ini.Free; end;
Użytkownik Cyrkiel edytował ten post 08 lipiec 2005, 18:25
dzieki :D
Jak macie jakies propozycje kodu to piszcie tutaj :)