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???