OK sie schaut jetzt so aus:
Delphi-Quellcode:
function TEDM.SyncData: Boolean;
var
SQL:
String;
Qry:
String;
begin
SyncData := TRUE;
AssignFile(ARDFile, '
D:\EvilBird\Kunden.ard');
Reset(ARDFile);
while not Eof(ARDFile)
do
begin
try
Qry:='
INSERT INTO Clients'+#13#10+
'
(ClientNumber, Anrede, Name, Street, PLZ, City, HomePhone, MobilePhone)'+#13#10+
'
VALUES (:p1, :p2, :p3, :p4, :p5, :p6, :p7, :p8)';
with Clients, ARDRecord
do
begin
Close;
SQL.Text:=Qry;
Parameters.ParamByName('
p1').Value:=StrPas(ID);
Parameters.ParamByName('
p2').Value:=StrPas(Anrede);
Parameters.ParamByName('
p3').Value:=StrPas(
Name);
Parameters.ParamByName('
p4').Value:=StrPas(Strasse);
Parameters.ParamByName('
p5').Value:=StrPas(PLZ);
Parameters.ParamByName('
p6').Value:=StrPas(Ort);
Parameters.ParamByName('
p7').Value:=StrPas(Tel);
Parameters.ParamByName('
p8').Value:=StrPas(Mobil);
ExecSQL;
end;
except
SyncData := FALSE;
end;
end;
CloseFile(ARDFile);
end;
Das Problem ist jetzt bekomme ich diese Fehlermeldung:
[Error] EDMUnit.pas(354): Incompatible types: 'Array' and 'PAnsiChar'
Wenn ich die Funktion StrPas(Record) weglasse bekomme ich diese:
[Error] EDMUnit.pas(354): Incompatible types: 'Variant' and 'Array'
Hast du da noch eine Idee?