Forum: Object-Pascal / Delphi-Language
Delphi
by chrisw,
27. Apr 2005
OK, das muss man Ausschliessen oder Abfangen !!
Forum: Object-Pascal / Delphi-Language
Delphi
by chrisw,
27. Apr 2005
So etwa ?
procedure TForm1.Button1Click(Sender: TObject);
var stri : String;
i : Integer;
ZwischenZweiHochkommas : Boolean;
begin
stri := 'Select * from ARTIKEL where a_nr = ''HALLO''';
ZwischenZweiHochkommas := False;
Forum: Object-Pascal / Delphi-Language
Delphi
by chrisw,
27. Apr 2005
s := '('')';
ergibt nach showmessage(s); ein (') !!!!
Wenn Du jetzt die Klammern noch weglässt, hasst Du ein ' !!!
Forum: Object-Pascal / Delphi-Language
Delphi
by chrisw,
27. Apr 2005
Schau mal mein Code, der zählt die (') Hochkommas, in Delphi werden doe aber mit ('') zweimal (') hintereinander geschrieben, da (') ein reserviertes Zeichen (für Stringanfang und -ende ) ist.
Forum: Object-Pascal / Delphi-Language
Delphi
by chrisw,
27. Apr 2005
procedure TForm1.Button1Click(Sender: TObject);
var stri : String;
i,HochKommaZaehler : Integer;
begin
HochKommaZaehler := 0;
stri := ' 1'' 2'' 3'' 4'' '; // 4 Hochkommas
for i := 1 to length(stri) do if stri = '''' then inc(HochKommaZaehler);
showmessage(Inttostr(HochKommaZaehler)); //Ergebnis = 4
end;