mensch das geht ja
nun noch eine frage
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 begin
ZwischenZweiHochkommas := not ZwischenZweiHochkommas;
end;
if not ZwischenZweiHochkommas then begin
if (ord(Stri[i]) >= 65) and (ord(Stri[i]) <= 90) then begin
Stri[i] := chr(ord(stri[i]) +32);
end;
end;
end;
showmessage(stri);
end;
end.
wo wandel ich das in kleinbuchstaben um ??