Ĺadny brzuch
Pisze komunikator i mam dwie formy:
Form1 : Zawiera Liste kontaktów i inne
Form3 : To okno rozmowy
Pytanie : Jak zrobić, zeby jak jestem na formie 3 i chce wlanczyć forme 1 bez zamykania formy 3 to nie moze tego zrobić (pika mi speker) i pozostaje aktywna forma 3, Próbowałem jakośto zrobić z MDI ale tez nic(nie udało sie)
JAk to zrobić?
A drugie pytanie to jak ZApisać z ListVIew linijki, tylko procedura musi byc krótka, bo znam dłuższe i to jest 25 lini kodu i niech nie będzie zbędnych pustych pul na liscie ListVIew a jeszcze jak ZApisać z EDIT-ów 2 kolejno do ListVIew.
Pomocy :huh:
odpowiedź do form
form1.show;
a co do drugiego to widzę że cyrkiel już smaruje to pewnie i dobrze wysmaruje :P
jak chcesz dopisać z dwóch editów pola do list view :/
[coed]
listview.add(edit1.text);
[/code]
Użytkownik j-mail edytował ten post 02 wrzesień 2005, 16:40
Pisze komunikator i mam dwie formy:
Form1 : Zawiera Liste kontaktów i inne
Form3 : To okno rozmowy
Pytanie : Jak zrobić, zeby jak jestem na formie 3 i chce wlanczyć forme 1 bez zamykania formy 3 to nie moze tego zrobić (pika mi speker) i pozostaje aktywna forma 3, Próbowałem jakośto zrobić z MDI ale tez nic(nie udało sie)
JAk to zrobić?
A drugie pytanie to jak ZApisać z ListVIew linijki, tylko procedura musi byc krótka, bo znam dłuższe i to jest 25 lini kodu i niech nie będzie zbędnych pustych pul na liscie ListVIew a jeszcze jak ZApisać z EDIT-ów 2 kolejno do ListVIew.
Pomocy :huh:
1. Zamiast ShowModal; daj Show; ;)
2. Zapisać do pliku rozumiem? :Dprocedure TForm1.Button2Click(Sender: TObject); var b:pchar; s:string; f, r:cardinal; i, j:integer; begin with ListView1.Items do begin if Count=0 then exit; f:=CreateFile(PChar('c:\plik2.txt'),GENERIC_WRITE,0,nil,CREATE_ALWAYS, 0,0); GetMem(b,768); for i:=0 to Count-1 do begin s:=Item[i].Caption; with Item[i].SubItems do for j:=0 to Count-1 do s:=s+' '+Strings[j]; s:=s+#13#10; StrPCopy(b,s); WriteFile(f,b^,Length(s),r,nil); end; CloseHandle(f); FreeMem(b,768); end; end;I odczyt z pliku:procedure TForm1.Button1Click(Sender: TObject); var s, s2:TStringList; i, j:integer; begin ListView1.Clear; s:=TStringList.Create; s2:=TStringList.Create; s.LoadFromFile('c:\plik.txt'); for i:=0 to s.Count-1 do begin s2.Clear; ExtractStrings([' '],[' '],PChar(s[i]),s2); with ListView1.Items.Add do begin Caption:=s2[0]; if s2.Count>1 then for j:=1 to s2.Count-1 do Subitems.Add(s2[j]); end; end; s2.Free; s.Free; end;
Użytkownik Cyrkiel edytował ten post 02 wrzesień 2005, 17:01
Dzieki
Dzieki, dzieki, ale to dziala w 99% wyskakuje błąd!!! "List Index Out of bounds (0)" i tyle nie wiem jak to zrobiuć bo w tym kodzie zupełnie sie nie orientuje. Pomóżcie :/
Dzieki, dzieki, ale to dziala w 99% wyskakuje błąd!!! "List Index Out of bounds (0)" i tyle nie wiem jak to zrobiuć bo w tym kodzie zupełnie sie nie orientuje. Pomóżcie :/
oxi, dzieki
ale jest jeszcze jeden problem tutaj przy zapisie i odczycie odzielaczem NAZWY od NUMERU(CAption i SubItem) jest spacja ja chce zrobić tak aby "odzielaczem" był znak "równania" -> "=" w odczycie jest to proste tam gdzie jest spacja jest puste pole i daje tam znam "=" a w zapisie nie wiem jak to zrobić. Prosze o pomoc
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Form1 : Zawiera Liste kontaktów i inne
Form3 : To okno rozmowy
Pytanie : Jak zrobić, zeby jak jestem na formie 3 i chce wlanczyć forme 1 bez zamykania formy 3 to nie moze tego zrobić (pika mi speker) i pozostaje aktywna forma 3, Próbowałem jakośto zrobić z MDI ale tez nic(nie udało sie)
JAk to zrobić?
A drugie pytanie to jak ZApisać z ListVIew linijki, tylko procedura musi byc krótka, bo znam dłuższe i to jest 25 lini kodu i niech nie będzie zbędnych pustych pul na liscie ListVIew a jeszcze jak ZApisać z EDIT-ów 2 kolejno do ListVIew.
Pomocy :huh:
odpowiedź do form
form1.show;
a co do drugiego to widzę że cyrkiel już smaruje to pewnie i dobrze wysmaruje :P
jak chcesz dopisać z dwóch editów pola do list view :/
[coed]
listview.add(edit1.text);
[/code]
Użytkownik j-mail edytował ten post 02 wrzesień 2005, 16:40
Pisze komunikator i mam dwie formy:
Form1 : Zawiera Liste kontaktów i inne
Form3 : To okno rozmowy
Pytanie : Jak zrobić, zeby jak jestem na formie 3 i chce wlanczyć forme 1 bez zamykania formy 3 to nie moze tego zrobić (pika mi speker) i pozostaje aktywna forma 3, Próbowałem jakośto zrobić z MDI ale tez nic(nie udało sie)
JAk to zrobić?
A drugie pytanie to jak ZApisać z ListVIew linijki, tylko procedura musi byc krótka, bo znam dłuższe i to jest 25 lini kodu i niech nie będzie zbędnych pustych pul na liscie ListVIew a jeszcze jak ZApisać z EDIT-ów 2 kolejno do ListVIew.
Pomocy :huh:
1. Zamiast ShowModal; daj Show; ;)
2. Zapisać do pliku rozumiem? :Dprocedure TForm1.Button2Click(Sender: TObject); var b:pchar; s:string; f, r:cardinal; i, j:integer; begin with ListView1.Items do begin if Count=0 then exit; f:=CreateFile(PChar('c:\plik2.txt'),GENERIC_WRITE,0,nil,CREATE_ALWAYS, 0,0); GetMem(b,768); for i:=0 to Count-1 do begin s:=Item[i].Caption; with Item[i].SubItems do for j:=0 to Count-1 do s:=s+' '+Strings[j]; s:=s+#13#10; StrPCopy(b,s); WriteFile(f,b^,Length(s),r,nil); end; CloseHandle(f); FreeMem(b,768); end; end;I odczyt z pliku:procedure TForm1.Button1Click(Sender: TObject); var s, s2:TStringList; i, j:integer; begin ListView1.Clear; s:=TStringList.Create; s2:=TStringList.Create; s.LoadFromFile('c:\plik.txt'); for i:=0 to s.Count-1 do begin s2.Clear; ExtractStrings([' '],[' '],PChar(s[i]),s2); with ListView1.Items.Add do begin Caption:=s2[0]; if s2.Count>1 then for j:=1 to s2.Count-1 do Subitems.Add(s2[j]); end; end; s2.Free; s.Free; end;
Użytkownik Cyrkiel edytował ten post 02 wrzesień 2005, 17:01
Dzieki
Dzieki, dzieki, ale to dziala w 99% wyskakuje błąd!!! "List Index Out of bounds (0)" i tyle nie wiem jak to zrobiuć bo w tym kodzie zupełnie sie nie orientuje. Pomóżcie :/
Dzieki, dzieki, ale to dziala w 99% wyskakuje błąd!!! "List Index Out of bounds (0)" i tyle nie wiem jak to zrobiuć bo w tym kodzie zupełnie sie nie orientuje. Pomóżcie :/
oxi, dzieki
ale jest jeszcze jeden problem tutaj przy zapisie i odczycie odzielaczem NAZWY od NUMERU(CAption i SubItem) jest spacja ja chce zrobić tak aby "odzielaczem" był znak "równania" -> "=" w odczycie jest to proste tam gdzie jest spacja jest puste pole i daje tam znam "=" a w zapisie nie wiem jak to zrobić. Prosze o pomoc