Fehlermeldung unklar: Record, Objekt oder Klassentyp erforderlich

[delphiprofi]

Ich habe folgende Fehlermeldung erhalten und keine Ahnung warum die kommt. Bitte um Hilfe!
Hier Teile des Quelltextes:

Delphi-Quellcode:

For Zaehler:= 0 To 25 Do
POS_EA:=0;
If EA[Zaehler].bs = Key
Then POS_EA:= Zaehler;
CB3:= AW3[Pos_Ea].cb;
Pos von bs=CB2 AUF WALZE POS_BS3

FOR ZAEHLER:=0 TO 25 DO
IF AW3[Zaehler].BS=CB3;
THEN Pos BS3:=zaehler;
CB2:=AW2[POS_BS].CB;

FOR zaehler:=0 to 25 do
If aw2[zaehler] BS=CN2
Then Pos_bs2:=zaehler;
CB1:=Aw1[Pos_bs2].CB;

FOR zaehler:=0 to 25 do
if aw1[zaehler].bs=Cb1
Then POS_BS1:=Zaehler;
REF1:=Arefl[POS_bs1].bs;

For zaehler:=0 to 25 do Begin
If (areflektor[zaehler].bs=ref1) and (zaehler> Pos_bs1))
Then pos_ref:=zaehler;

Edit10.Text:= Edit10.Text+AEa[Pos.W3].Bs
end;


end.

Ich muss für den Unterricht ne Enigma programmieren und es kommt immer dieser Fehler: [Fehler] penigma.pas(238): Record, Objekt oder Klassentyp erforderlich (3.Zeile)

Was mache ich falsch?

[MrSpock]

Hallo,

wie ist EA deklariert?

[delphiprofi]

Code:

ea:ARRAY[0..25] OF CHAR;

[DeddyH]

Man sollte nicht mit begin und end sparen. 26 Mal nacheinander lediglich POS_EA auf 0 zu setzen ist ja kontraproduktiv.

[edit] Tipp: Mit einer ordentlichen Formatierung/Einrückung sieht man so etwas auf den ersten Blick. [/edit]

[delphiprofi]

was heißt das jetzt für mich? Das hat unser Lehrer uns mehr oder weniger so vorgegeben.

[DeddyH]

Delphi-Quellcode:

for Zaehler := 0 to 25 do
  begin
    POS_EA:=0;
    //Hier dann der weitere Code, der in der Schleife ausgeführt werden soll
  end;

[delphiprofi]

OK Danke! Trotzdem bleibt der Fehler....

[Sir Rufo]

Hast du den Quellcode hier nachgetippt oder per CopyPaste reingehauen?

Denn dort finden sich mehrere Fehler, die dir der Compiler um die Ohren hauen sollte.

Delphi-Quellcode:

For Zaehler := 0 To 25 Do
  POS_EA := 0;

If EA[Zaehler].bs = Key
Then 
  POS_EA := Zaehler;

CB3 := AW3[Pos_Ea].cb;

Pos von bs=CB2 AUF WALZE POS_BS3 

FOR ZAEHLER := 0 TO 25 DO
  IF AW3[Zaehler].BS = CB3;
  THEN 
    Pos BS3 := zaehler;

CB2 := AW2[POS_BS].CB;

FOR zaehler := 0 to 25 do
  If aw2[zaehler] BS = CN2
  Then 
    Pos_bs2 := zaehler;
  
CB1 := Aw1[Pos_bs2].CB;

FOR zaehler := 0 to 25 do
  if aw1[zaehler].bs = Cb1
  Then 
    POS_BS1 := Zaehler;

  REF1 := Aerial[POS_bs1].bs;

For zaehler := 0 to 25 do 
  Begin
    If ( areflektor[zaehler].bs = ref1 ) and ( zaehler > Pos_bs1 ) )
    Then 
      pos_ref := zaehler;

    Edit10.Text:= Edit10.Text + AEa[Pos.W3].Bs
  end;

end.

[delphiprofi]

also abgetippt und dann per copy paste von nem editor programm in den delphi editor reinkopiert.

[DeddyH]

Stell mal den Originalsource hier ein.