Problem mit hochkomma in String

[chrisw]

So etwa ?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var stri : String;
    i    : Integer;
    ZwischenZweiHochkommas : Boolean;
begin
  stri := 'Select * from ARTIKEL where a_nr = ''HALLO''';
  ZwischenZweiHochkommas := False;
  for i := 1 to length(stri) do
  begin
    if stri[i] = '''' then ZwischenZweiHochkommas := not ZwischenZweiHochkommas;
    if not ZwischenZweiHochkommas then
      if (ord(Stri[i]) >= 65) and (ord(Stri[i]) <= 90) then   Stri[i] := chr(ord(stri[i]) +32);
  end;
  showmessage(stri);
end;