løkke der finder labels

Sådan lige ud af hovedet uden at teste..

var
  i : integer;
begin
  for i:=0 to Form.ControlCount-1 do
  if (Form.Controls[i] is TLabel) and ((Form.Controls[i] as TLabel).caption='DAV') then
    showmessage('Der står dav i labelen');
end;

det virker desværre ikke helt efter hensigten - det er meningen, at programmet kun må gå videre, hvis samtlige 12 labels har captionen 'DAV' og hvis det følgende gælder:


if ((form.controls[i] is TLabel) and ((form.controls[i] as TLabel).caption = 'hej')) and (edit1.text = 'goddag') then

men så vidt jeg kunne føle på det, checkede den kun en ad gangen sammen med edit'en

function ErAlleEns(Tekst : string) : boolean;
var
  i : integer;
begin
  result:=false;
  for i:=0 to Form.ControlCount-1 do
  if (Form.Controls[i] is TLabel) and ((Form.Controls[i] as TLabel).caption<>Tekst) then
    exit;
  result:=true;
end;

.
.

if ErAlleEns('hej') and (edit1.text='goddag') then
  //alle labels har teksten 'hej' og edit1.text er 'godag'

Hvis det så skal være alle labels, som har en caption <> '', bliver det så:


function ErAlleEns(Tekst : string) : boolean;
var
  i : integer;
begin
  result:=false;
  for i:=0 to Form.ControlCount-1 do
  if (Form.Controls[i] is TLabel) and ((Form.Controls[i] as TLabel).caption=Tekst) then
    exit;
  result:=true;
end;

.
.

if ErAlleEns('') and (edit1.text='goddag') then ...

Fandt ud af det - tusind tak skal du have. Jeg ville påskønne, hvis du lagde et svar

Godt så :)

Prøver igen. Godt så :)

Det var ikke et svar.. men det er helt fint, fordi det viser sig, at jeg talte over mig. Fandt egentlig ikke ud af det alligevel :-/

Er ikke helt klar over hvad du mener?

Den skal blot finde alle labels, som har en caption, der er forskellig fra '' - altså den skal finde alle labels med noget stående i captionen.

ok, og hvad skal der så ske med labels den finder?

Jævnfør dit eksempel, så skal den gøre præcis det samme, men bare finde de labels, hvor der står noget i captionen og den edit, med teksten 'goddag'

Jeg tror jeg trænger til at sove :) for jeg er stadig ikke med. Mit første eks. gør som du skrev "checker, om samtlige 12 labels på min form har en caption lig noget bestemt".
Og nu vil du så have en function der finder samtlige labels hvor der står noget i caption, det er også let nok:

for i:=0 to Form.ControlCount-1 do
  if (Form.Controls[i] is TLabel) and ((Form.Controls[i] as TLabel).caption<>'') then
    // i denne står det noget

men så forstår jeg ikke lige hvad der skal ske.

hvad så med if ErAlleEns('hej') and (edit1.text='goddag') then?

så skal det være noget i stil med

if ErAlleEns(<>'') and (edit1.text='goddag') then // ved godt det er brandulovligt, men måske er dette bedre end en forklaring


altså hvis alle labels har fået skrevet noget i deres caption og edit1.text := goddag, så ...

ok, så kan man lave en ny function:

function IngenTomme : boolean;
var
  i : integer;
begin
  result:=false;
  for i:=0 to Form.ControlCount-1 do
  if (Form.Controls[i] is TLabel) and ((Form.Controls[i] as TLabel).caption='') then
    exit;
  result:=true;
end;

IngenTomme vil returnere true hvis hvis alle captions er <>''
dvs.:

if IngenTomme and (edit1.text='goddag') then

Tak skal du have, og sov godt, når du kommer dertil :-)

:-)