Also wenn ich den Button Importieren drücke passiert folgende Fehlermeldung (siehe Anhang).
Kann es sein das ich
MySQL 5... benutze und nicht wie im Demo 4.1 ?
Delphi-Quellcode:
procedure Import(
const Filename:
string);
var
sl: TStringList;
i: Integer;
StringArray: TStringDynArray;
Kontakt: TKontakt;
begin
StringArray :=
nil;
sl := TStringList.Create;
try
sl.LoadFromFile('
C:\Users\Stephan\Desktop\AdressDBSQL\Adressen.csv');
for i := 1
to sl.Count - 1
do
begin
StringArray := Explode('
;', sl.Strings[i]);
with Kontakt
do
begin
// Name;Vorname;Strasse;PLZ;Ort;Land;Telefon1;Telefon2;Fax;EMail1;
// EMail2;URL;GebDat;Firma;Position
Name := StringArray[0];
Vorname := StringArray[1];
Strasse := StringArray[2];
PLZ := StrToIntDef(StringArray[3], 0);
Ort := StringArray[4];
Telefon1 := StringArray[6];
Telefon2 := StringArray[7];
Fax := StringArray[8];
EMail1 := StringArray[9];
EMail2 := StringArray[10];
Url := StringArray[11];
GebDat := StringArray[12];
Firma := StringArray[13];
end;
Insert(Kontakt);
end; <<< Wenn ich auf anhalten drücke zeigt mir Delphi diese Stelle Rot Markiert
finally
FreeAndNil(sl);
end;
end;