[delphi] puste linie w memo

cześć

Mam problem ponieważ podczas włączenia programu nie zawsze zostają pobierane dane do memo i chciałbym sprawdzić czy memo nie zawiera spośród 40 lini pustej.
Robiłem tak
if memo1.lines[0] = '' or memo1.lines[1] = '' ........ memo1.lines[39] = '' then begin showmessage('jedna z lini jest pusta'); button2.enabled:=false; end;
ale może jest jakiś krótszy zapis tego??

[code]
Użytkownik ari123 edytował ten post 18 październik 2009, 09:23

---

zainteresuj się pętlami ... wybacz, ale tak to jest jak ktoś się najpierw uczy VCLa... wrzucanie dużo ładnych kontrolek na formę to jeszcze nie programowanie ...

var i: integer; begin for i:= 0 to memo1.lines.count - 1 do if memo1.lines[i] = '' then // ... znaleziono pusta linie ...

migajek dzięki .. wiem ale pętle zawsze były moją piętą achilesową i nigdy nie lubiłem z nich korzystać


migajek dzięki .. wiem ale pętle zawsze były moją piętą achilesową i nigdy nie lubiłem z nich korzystać
niestety, będziesz musiał, pętle to jeden z *najważniejszych* tematów przy nauce programowania :)

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl