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?