Apostrophe in SQL Statement ersetzen

[Andidreas]

hi @ all,

ich hab grad folgendes problem:

im moment erstell ich aus einem .txt file eine db datei...
in denn datensätzen die ich aus dem .txt file einlese kann es sein, das auch apostrophe vorhanden sind die ich mit in die db datei übernehmen muss...

wenn ich denn string (bzw. die .txt zeile) einfach so in mein sql statment übernehme, dann krieg ich nen fehler...

denn fehler beheb ich dadurch, dass ich ein ' durch zwei ' ersetze
bsp. Rock'n'Roll ergibt Rock''n''Roll

um die apostrophe in meine string zu ersetzen hab ich mir folgende funktion gebastelt:

Delphi-Quellcode:

function TMain_Form.fnapostrophe(sRow : String) : String;

var
arPos              : Array[1..10] of String;
i, i2, iAnz, iLen, iPos  : Integer;


begin

  iLen := Length(sRow);
  iAnz := 0;

  For i := 0 To iLen Do
  Begin
    If sRow[i] = #39 Then
    Begin
      Inc(iAnz);
      arPos[iAnz] := IntToStr(i);
    End;
  End;

  For i2 := iAnz DownTo 1 Do
  Begin
    iPos := StrToInt(arPos[i2]);
    Insert(#39, sRow, iPos);
  End;

  fnapostrophe := sRow;

end;

jetzt meine frage:
weiß jemand ob es für meine funktion auch schon eine funktion von delphi gibt die genau das macht???
hat jemand vielleicht noch nen vorschlag wies noch einfacher geht???