Problem mit hochkomma in String

[Waldteufel]

Hi.

Zitat von Gigant02:

Stopt mal eben

ich glaube wir reden hier aneinander vorbei

nun ich meine das hochkomme ' und nicht das " hochkomma

Nein... Tut ihr nicht

s := 'Wie geht''s?' ergibt: Wie geht's

s := '"Wie geht''s?"' ergibt: "Wie geht's"

[chrisw]

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.

[Gigant02]

gut und wenn ich nur das zeichen (') in einen string haben will ??

[chrisw]

s := '('')';
ergibt nach showmessage(s); ein (') !!!!

Wenn Du jetzt die Klammern noch weglässt, hasst Du ein ' !!!

[Gigant02]

hmm crisw

irgendwie peile ich zur zeit garnix mehr

also ich habe in problem

ich habe ein Programm welches unter windows geschrieben ist und ich muss das auf linux laufen lassen

also das programm arbeitet mit einer mysql datanbank und mysql kommt damit nicht klar

'Select * from ARTIKEL where a_nr = 'Hallo'

sondern will

'select * from artikel where a_nr = 'Hallo'

nun wollte ich eine funktion schreiben die daraus halt
'select * from artikel where a_nr = 'Hallo'

das macht

das hallo darf aber nicht verändert werden
das ist mein problem

also wollte ich alles durch ein lowercase schicken bis auf die sachen die in (') stehen

nun das ist ein einfaches balspiel es gibt sql anweisungen die viel viel komplexer sind

das ist mein problem

lg, Alex

[Gigant02]

Zitat von chrisw:

s := '('')';
ergibt nach showmessage(s); ein (') !!!!

Wenn Du jetzt die Klammern noch weglässt, hasst Du ein ' !!!

hmm ok könnte mir echt weiterhelfen

danke erstmal

[jfheins]

Vorgehensweise:

Du hast 2 Stringvariablen, eine Eingabe und eine Ausgabe

Du suchst mit PosEx ('''') ob da Hochkommata drin sind.

Wenn ja, kopierst du mir PosEx und Copy die Teile zwischen den Hochkommata in die Ausgabe und wandelst sie dabei ggf. um

Wie wärs's ?

[Gigant02]

genauso mache ich es ja gerade

lg, Gigant02

[Khabarakh]

Oder du benutzst einfach #39.

[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;