string parsen (quotes in echte anführungszeichen tauschen)

[Uwe Raabe]

Oder so:

Delphi-Quellcode:

var
  I: Integer;
  ch: char;
begin
  ch := #132;
  for I := 1 to Length(S) do
    if S[I] = #34 then begin
      S[I] := ch;
      ch := chr(132 + 148 - ord(ch));
    end;
end;

Wegen der expliziten Angabe der Zeichencodes funktioniert das aber nicht mehr unter Delphi 2009! Dazu müsste man die Zeichencodes der entsprechenden Unicode-Zeichen kennen.