wörter mit sonderzeichen

[gelvuun]

Hallo

ich habe für einen freun ein kleines programm geschrieben, das ihm bei einem computerspiel hilft die sprachen der völker zu übersetzen.
leider kommt in diesen wörtern oft das zeichen ' vor, was in delphi ja eine bedeutung hat.

wie kann ich also solche wörter eingeben, ohne das mir delphi probleme macht?

[Corpsman]

Wenn du willst das das Wort "Hallo's " in einem String steht schreibst du

Delphi-Quellcode:

var s:String;
begin
s:='Hallo''s ';

[gelvuun]

also... das ganze programm ist eine laaaaaaange if abfrage

vielleicht nicht schön... aber einfach zu erweitern und zuverlässig

Delphi-Quellcode:

if edit1.text='tago'
   then Label3.Caption:='mach'
   else
     if edit1.text='kazum'
     then Label3.Caption:='nicht'
     else
       ......

und das soll jetzt für das wort "kil'azi" erweitert werden

[marabu]

Hallo.

Ich würde das Wörterbuch in einer Textdatei speichern:

Code:

ka = ja
kazum = Gebet
nakazz = Freund
no'gor = Gefahr

Wenn du diese beim Programmstart oder auf Wunsch des Benutzers in eine StringList lädst, dann kannst du ohne endlose Abfragen auf die Übersetzung zugreifen:

Delphi-Quellcode:

type
  TMainForm = class(TForm)
  private
    Woerterbuch: TStringList;
    function AufDeutsch(wort: String): String;
  end;

// ...

function TMainForm.AufDeutsch(wort: String): String;
begin
  Result := Woerterbuch.Values[wort];
end;

Grüße vom marabu

[Corpsman]

Marabu hat recht ,

Willst du es trotzdem mit der If machen kannst du doch ohne Probleme schreiben.

Delphi-Quellcode:

if edit1.text='tago'
   then Label3.Caption:='kil''azi'
   else 
...

wenn du das ' Zeichen zwei mal hintereinander in einen String schreibst und dazwischen kein Plus da also nicht 'asd'+'as' was du für die addition von strings machen würdest sondern das + einfach weg läst dann macht der Rechenr genau das was du willst.

[himitsu]

Geradema 10 Tage alt :wall:

> http://www.delphipraxis.net/internal...=518193#518193