(Gast)
n/a Beiträge
|
Re: Wie kann ich ein hochkommer finden ??
27. Apr 2005, 18:11
Hi.
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); // <-- hier wird umgewandelt
end;
end;
end;
showmessage(stri);
end;
end.
|
|
Zitat
|