Sonderzeichen ( z.b. " ' ) auslesen und schreiben

[marabu]

In deinem Code setzt du aber die Hinweise gar nicht um.

Entweder so:

Delphi-Quellcode:

NeuDbQuery.SQL.Text := 'INSERT INTO [pers59] (' 
  + 'id, altid, geschlecht, anrede, Nachname, Vorname, strasse, plz, ort, tel, '
  + 'tel2, fax, email, bemerkung, erstellt, modify, sterntaler, '
  + 'patenschaft, kastration, kostrin'
  + ') VALUES (' 
  + QuotedStr(getid) + ', '
  + QuotedStr(NeuDbRec_Pers_Array[a].ID) + ', '
  + ...

Oder so:

Delphi-Quellcode:

with NeuDbQuery do
  SQL.Text := 'INSERT INTO [pers59] (' 
            + 'id, altid, geschlecht, anrede, Nachname, Vorname, strasse, plz, ort, tel, '
            + 'tel2, fax, email, bemerkung, erstellt, modify, sterntaler, '
            + 'patenschaft, kastration, kostrin'
            + ') VALUES (' 
            + ':id, :altid, ....';
  Parameters.ParamValues['ID'] := GetId;
  ...
end;

Freundliche Grüße