Einzelnen Beitrag anzeigen

Gigant02

Registriert seit: 3. Nov 2004
Ort: Helgoland
341 Beiträge
 
Delphi 7 Professional
 
#28

Re: Wie kann ich ein hochkommer finden ??

  Alt 27. Apr 2005, 19:21
ok doch ich frag doch noch was

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var stri : String;
    i : Integer;
    ZwischenZweiHochkommas : Boolean;
begin

  stri := 'Select * from ARTIKEL where a_nr = ''Hallo'' ' +
          '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;
Nun gut ich frage mich warum die zeile
ZwischenZweiHochkommas := not ZwischenZweiHochkommas;
so ist und nicht
ZwischenZweiHochkommas := False;

was mache ich da mit der Boolischen Variable ???

also ich habe gerade rumprobiert und so wie ich meine geht es nicht

aber was wird da gemacht ich kenn das so überhaupt nicht

kann mir das mal einer erklären ???

lg, Gigant
  Mit Zitat antworten Zitat