if then and or if then and or if then else

Du kan bruge:

if (noget('ok')) and (noget_andet('ok')) and (noget_tredje('ok')) then
begin
>>B<<
end;
else
begin
>>A<<
end;

Kigger på det ;)

Du kan vist bare gøre sådan:

if noget('ok') and noget_andet('ok') and noget_tredje('ok') then :-)

Kan ikke liiiiiiiiiige få det til at virke på den måde.... Men jeg kæmper lidt videre med det...

[Error] Main.pas(197): Too many actual parameters
[Error] Main.pas(198): Operator not applicable to this operand type
[Error] Main.pas(199): Operator not applicable to this operand type
[Error] Main.pas(200): Incompatible types: 'String' and 'Boolean'

Der er selvfolig forskellige maader at gore det paa:

Den besvaerlige og noget rodet maade:

if (Et eller andet) then
begin
  if (Et eller andet) then
  begin
    if (Et eller andet) then
    ...
    else
      Exit;
  end
  else
    Exit;
end
else
  Exit;

Den lidet mindre besvaerlige maade:

var
  B : Boolean;
begin
  B := False;

  if not (et eller andet) then
  B := True;

  if not (et eller andet) then
  B := True;

  if not (et eller andet) then
  B := True;
 
  if not B then
  ...
  else
    Exit;
 
end;

Den paenere og mere overskuelige maade:

if (Et eller andet) and (Et eller andet) and (Et eller andet) then
...
else
  Exit;

Alle tre maader virker korrekt... Det er vel bare en smags sag hvad man foler er bedst :-))

Held og Lykke
ZeroHero

bramsing -> Prøv at poste koden.

zerohero, dit andet svar vil resulterer i B = true blot sidste er true, duer ikke.
Bramsing, post noget kode, da det lyder på dine fejlmedelser som om du har lavet en bøf et sted i syntaxen

Jeg er sluppet af med fejlmeddelserne nu... men, nu køre det bare ikke :'(
her er koden... Undskyld svar tiden, men jeg blev kaldt i møde...

procedure TForm1.ButtonLoginClick(Sender: TObject);
  VAR
    F : TInifile;
    r4 : string;
    I3,I6,I7:Integer;
begin
    F := TInifile.Create(extractfilepath(application.exename)+'\test.ini');
    r4:= F.ReadString('logon','time','');
    label31.Caption := RE1;
    label32.Caption := RE2;
    label33.Caption := RE3;
    I3:= strtoint(label31.Caption);
    I6:=Strtoint(label32.Caption);
    I7:=Strtoint(label33.Caption);
      if ReadRegKey= 'OK' then
        begin
          if ini1 = 'OK' then
          begin
          if r4 = (inttohex(I6,I6))+(inttohex(I3,I3))+(inttohex(I7,I7))
            then
              begin
              panel2.BringToFront;
              end else
        begin
        panelnag.BringToFront;
        timernag.Enabled := TRUE;
        end;
      end;
  end;
end;

Koden virker kun i det omfang at de første 2 "kontrol" er korrekt og den sidste "kontrol" enten er korrekt eller at den melder "fejl".... så køre programmet som det skal... ellers sker der intet når man trykker på knappen....

Jeg ved ikke liiiiige hvad jeg fik gjort til at starte med... men hejhej's måde har jeg fået til at virke... den som zerohero også kommer med til sidst... SÅ, hvis hejhej lægger et svar ind så vil jeg dele point'ne op til jer to, hvis det er ok med jer :)

:-)

Takker for hjælpen :)