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.

[delphiprofi]

ok unser lehrer übernimmt gerade!

[Sir Rufo]

Zitat:

Zitat von DeddyH (Beitrag 1211870)

Stell mal den Originalsource hier ein.

Ja, denn irgendwie sind da mehr Fehler drin als Quellcode vorhanden ist (siehe meinen letzten Beitrag mit dem formatierten Quellcode)

[Bummi]

meine Glaskugel meint Pos.W3 ist für die Meldung verantwortlich ....

[delphiprofi]

ja er erklärt das gerade alles. Vielen Dank für die Hilfe!

[Sir Rufo]

Zitat:

Zitat von Bummi (Beitrag 1211874)

meine Glaskugel meint Pos.W3 ist für die Meldung verantwortlich ....

Die hat aber schnell Staub angesetzt ;)

Wenn

Delphi-Quellcode:

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

dann geht

Delphi-Quellcode:

EA[Zaehler].bs

in die Hose

[DeddyH]

Ich wollte den Code durch den Formatter von XE jagen, aber der ist irgendwann ausgestiegen, dabei ist mir erst die Fülle der Syntaxfehler richtig bewusst geworden :)