Einzelnen Beitrag anzeigen

maxcom24

Registriert seit: 30. Aug 2011
Ort: Antalya
12 Beiträge
 
Delphi 2010 Professional
 
#5

AW: Fehler Meldung vom Demo Datenbank Beispiel ???

  Alt 5. Sep 2011, 00:42
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;
Miniaturansicht angehängter Grafiken
fehlermeldung-beim-button-imortieren.png   ereignisprotokoll.png  
Stephan
  Mit Zitat antworten Zitat