Inkompatible typen im programm????

[skaven]

Hallo,

habe ein Programm geschrieben das ich leider nicht compilieren kann, es tritt immer der Fehler inkompatible typen in der until anweisung auf. Wieso?

[delphi]
///// Liest eine gewählte Datei ein und sendet die Daten per com 1 an das Endgerät /////

procedure TForm1.DateieinlesenClick(Sender: TObject);
var
Liste : TStringList;
i : Integer;
data : string;
F: TextFile;
filename : String;
prdwerte : array of integer;
begin
if OpenDialog1.Execute then { Dialog zum Dateiöffnen anzeigen }
begin
filename := OpenDialog1.FileName;
try
Liste := TStringList.Create;
Liste.LoadFromFile(filename);
for i := 0 to Liste.Count-1 do
begin
// ShowMessage(Liste[i]);
apdcomport1.putstring(Liste[i]);
apdcomport1.putstring(#13);
repeat
apdcomport1.putstring('prd');
apdcomport1.putstring(#13);
Setlength(prdwerte,length(prdwerte)+1);
until [high(prdwerte)-1]<>prdwerte[high(prdwerte)]; /// Fehlermeldung????
end
finally
Liste.Free;
end;
end;
end;


///// Stellt den Antwortbefehl des Endgerätes auf einem Memo da /////

procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
Data: String;
I: Integer;
begin
for I:= 0 to Count-1 do
Data := ApdComPort1.GetChar;
Memo1.text:= data;
end;

end.


[b] Wäre nett wenn Ihr den mal durchsehen könnt.

Hoffe das ich beim einfügen die Delphi Taqs benutzt habe, ansonsten wie geht das?

[skaven]

Hier nochmal der Code, hoffe diesmal richtig angehängt.

Delphi-Quellcode:

///// Liest eine gewählte Datei ein und sendet die Daten per com 1 an das Endgerät /////

procedure TForm1.DateieinlesenClick(Sender: TObject);
var
   Liste : TStringList;
   i : Integer;
   data : string;
   F: TextFile;
   filename : String;
   prdwerte : array of integer;
   begin
  if OpenDialog1.Execute then          { Dialog zum Dateiöffnen anzeigen }
  begin
    filename := OpenDialog1.FileName;
   try
  Liste := TStringList.Create;
  Liste.LoadFromFile(filename);
    for i := 0 to Liste.Count-1 do
      begin
      // ShowMessage(Liste[i]);
       apdcomport1.putstring(Liste[i]);
       apdcomport1.putstring(#13);
      repeat
       apdcomport1.putstring('prd');
       apdcomport1.putstring(#13);
       Setlength(prdwerte,length(prdwerte)+1);
      until [high(prdwerte)-1]<>prdwerte[high(prdwerte)]; /// FEHLER ???
    end
   finally
  Liste.Free;
  end;
  end;
end;


///// Stellt den Antwortbefehl des Endgerätes auf einem Memo da /////

procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
  Data: String;
  I: Integer;
begin
    for I:= 0 to Count-1 do
     Data := ApdComPort1.GetChar;
  Memo1.text:= data;
  end;

end.

[Robert Marquardt]

Delphi-Quellcode:

until [high(prdwerte)-1]<>prdwerte[high(prdwerte)];
     ^^ Hier fehlt ein Variablenname

Schreib mal deinen Code mit mehr Leerzeichen und man erkennt mehr.

[skaven]

stimmt, ups, vielen dank