Ĺadny brzuch
Mam pytanie jak znaleść w listboxie najdłuższy i najkrótszy text i wypisac go w 2 editach ?
Na przykład tak:
var max, min: string; i: word; begin max := ''; min := ''; for i := 0 to Pred(ListBox1.Items.Count) do begin if Length(ListBox1.Items[i]) > Length(max) then max := ListBox1.Items[i]; end; edit1.Text := max; min := max; for i := 0 to Pred(ListBox1.Items.Count) do begin if Length(ListBox1.Items[i]) < Length(min) then min := ListBox1.Items[i]; end; edit2.Text := min; end;
Użytkownik p1101 edytował ten post 22 październik 2005, 14:28
Dzięki za zwięzła i prostą odpowiedź :)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Na przykład tak:
var max, min: string; i: word; begin max := ''; min := ''; for i := 0 to Pred(ListBox1.Items.Count) do begin if Length(ListBox1.Items[i]) > Length(max) then max := ListBox1.Items[i]; end; edit1.Text := max; min := max; for i := 0 to Pred(ListBox1.Items.Count) do begin if Length(ListBox1.Items[i]) < Length(min) then min := ListBox1.Items[i]; end; edit2.Text := min; end;
Użytkownik p1101 edytował ten post 22 październik 2005, 14:28
Dzięki za zwięzła i prostą odpowiedź :)