Problem mit if then

[qwertzp]

Hallo, wie kann ich einen if then Befehl zum Beispiel in Unit 2 auf etwas in Unit1 beziehen?

[Euklid]

Hallo,

habe Deine Frage noch nicht ganz verstanden. Kannst Du die ev. etwas genauer formulieren?

Gruß, Euklid

[af0815]

Hallo, wie kann ich einen if then Befehl zum Beispiel in Unit 2 auf etwas in Unit1 beziehen?

Pascal oder Präprozessor ?

[Hitman]

...
uses unit1;
...

if <irgendwas aus dem interfaceteil von unit1> then ...

[qwertzp]

Danke genau das hab ich gesucht!

[qwertzp]

Ich hab das jetzt gemacht:
implementation
uses unit10;
begin;
if (combobox1.itemindex=0) and (combobox2.itemindex=0) then
begin
end;
end;
Was ist hier falsch?

[af0815]

Was ist hier falsch?

Was ist deine Fehlermeldung ?
Wo/wie ist die combobox1 bzw. combobox2 definiert ? Ich nehme an die liegen auf ner Form, wo steht dann auf welcher Form die liegen. Laut meiner Glaskugel: "Form1.panel1.combobox1.itemindex=0" wenn die "Form1" in der "unit10" ist und auf dem "panel1" liegt.

BTW: Fragen zu präzisieren und sich mit den Grundlagen der Sprache zu beschäftigen haben noch nie geschadet.

[theo]

Was ist hier falsch?

Wenn das wirklich so da steht, dann würde ich sagen du verwechselst program mit unit.

[qwertzp]

Okay danke!

[qwertzp]

Ich hätt hier nochne Frage wieso meldet das das ein end; zuviel da ist, wenn man eines löscht gehts auch nicht?

[Euklid]

Ich hätt hier nochne Frage wieso meldet das das ein end; zuviel da ist, wenn man eines löscht gehts auch nicht?

Bitte sende uns noch den Abschnitt aus dem Quelltext, den Du meinst und hänge die ausgegebene Fehlermeldung an. Danke.

[af0815]

Ich hätt hier nochne Frage wieso meldet das das ein end; zuviel da ist, wenn man eines löscht gehts auch nicht?

Irgendowo ein Strichpunkt zuviel - Bsp.

Code: Alles auswählen

begin; 
end;

statt

Code: Alles auswählen

begin 
end;

[qwertzp]

Den hab ich gefunden und gelöscht bringt leider nichts:

Code: Alles auswählen

unit Unit11;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs; 
 
type
  TForm10 = class(TForm)
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form10: TForm10; 
 
implementation
uses unit10;
begin
if (form9.combobox1.itemindex=0) and (form9.combobox2.itemindex=0) then
end;
end;
 
 
 
initialization
  {$I unit11.lrs}
 
end.

[Euklid]

Hallo qwertz,

vielen Dank für den Codeausschnitt! Er hilft schonmal weiter:
In Lazarus wird der Code meist in Prozeduren oder Funktionen ausgeführt. D.h. bei Deinem Code fehlt die Einbindung Deines Codes in so eine Prozedur/Funktion.

Möchtest Du den Code ausführen, wenn jemand auf einen Button klickt?
Dann ziehe einfach einen Butten auf Deine Form10, klickt doppelt darauf und füge Deinen Code in dem dann aufspringenden Fenster ein.

Viele Grüße, Euklid

[af0815]

Code: Alles auswählen

Code: Alles auswählen
 
    unit Unit11;
 
    {$mode objfpc}{$H+}
 
    interface
 
    uses
      Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs; 
 
    type
      TForm10 = class(TForm)
      private
        { private declarations }
      public
        { public declarations }
      end; 
 
    var
      Form10: TForm10; 
 
    implementation
    uses unit10;
 
   // Was soll hier beginnen ?!? Hier fehlt ein Kopf !!
    begin // begin 1
       if (form9.combobox1.itemindex=0) and (form9.combobox2.itemindex=0) then
       begin //begin 2  - das fehlt
 
          // sinnvoller code hier
 
       end;  // zu begin 2
 
       //  sinnvoller code hier
 
  end; // zu begin 1
 
    initialization
      {$I unit11.lrs}
 
    end.

Bitte schau dir mal die Grundbegriffe von Pascal an.