Hallo,
ich hoffe ich bin im richtigen Forum und Ihr könnt mir weiterhelfen.
Bei einem Prozeduraufruf möchte ich ein Array und ein Stringgrid übergeben. Obwohl ich von der Sache her alles gleich mache, klappt das bei einem Aufrauf, bei dem anderen aber nicht. Delphi bricht mit einer Fehlermeldung ab:
"Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen"
So sind die Typen deklariert:
Delphi-Quellcode:
type TMyBestell = Record
Bezeichnung : string[60];
BestellNr : string[20];
Klemmband : integer;
Bild : string[20];
Preis : array[0..MaxNenn] of real;
AngebotsPreis : array[0..MaxNenn] of real;
end;
TBestellung = ARRAY[1..MaxArtikel] of TMyBestell;
TMyStaerke = Record
StaerkeWert : string[20];
Zuschlag : integer;
end;
TStaerke = ARRAY[1..MaxStaerke] of TMyStaerke;
Die Variablen sind in derselben
Unit so deklariert:
Delphi-Quellcode:
var
FU : TBestellung;
Staerke : TStaerke;
Die Prozeduren und die Aufrufe sehen so aus:
Delphi-Quellcode:
procedure BestelldatenInArray(var MyArray : TBestellung; grd : TStringGrid);
procedure StaerkeInArray(var MyArray : TStaerke; grd : TStringGrid);
BestelldatenInArray(FU, StringGrid1);
StaerkeInArray(Staerke, StringGrid5);
Die Prozedur BestelldatenInArray funktioniert, bei der Prozedur StaerkeInArray kommt die Fehlermeldung.
Woran liegts???
Schon mal vielen Dank für Eure Mühe.
torf160