Text aus Datei laden, Single Quote Problem

[DieDolly]

Ich lese Text aus einer Datei, der dann in meinem Programm angezeigt wird.
Das klappt gut bis zu dem, Zeitpunkt, wenn ein zu ladener String einen Quote enthält wie er in England oder Frankreich benutzt wird

Zitat:

Bli b'la blub

Zitat:

Don't

Ich kann das ins Programm laden und es gibt keinen Fehler. Aber ein so in eine Variable geschriebener Satz in einem MessageDlg erzeugt keinen Umbruch nach den Windows typischen 60 bis 70 Zeichen.

Gibt es irgendeine Delphi- oder Windowsfunktion, sodass der Quote in er Textdatei nicht escaped werden muss und in Delphi trotzdem korrekt interpretiert wird?

[Uwe Raabe]

Zitat:

Zitat von DieDolly (Beitrag 1434881)

Ich lese Text aus einer Datei, der dann in meinem Programm angezeigt wird.

Wie denn genau?

[DieDolly]

Genau genommen ist es eine INI-Datei. Dort stehen Worte und Sätze so drin, wie sie in der jeweiligen Sprache geschrieben werden. Also kein Escapen oder so.
\' und '''' in der INI-Datei, wie man es bei PHP zum Beispiel macht, habe ich schon versucht.

[Uwe Raabe]

Die Frage ist: Wie liest du den Text aus der Datei? Es gibt einen ganzen Haufen von Möglichkeiten und jede hat ihre Eigenarten.

[DieDolly]

Hier ein Beispiel

Delphi-Quellcode:

function ReadValue(const AIniFile: TMemIniFile; const Section, Ident: string): string;
begin
 Result := UTF8ToWideString(AIniFile.ReadString(Section, Ident, ''));
end;

LIni := TMemIniFile.Create(LanguageFile);
try
 String123456 := ReadValue(LIni, 'section', 'ident');
finally
 LIni.Free;
end;

Ich jage alles durch ReadValue, um doppelten Code zu vermeiden. UTF8ToWideString steht da, da sonst Umlaute nicht richtig angezeigt werden.

[Moombas]

@Dolly: Wenn ich dich richtig verstehe ist nicht das einlesen das Problem (der eingelesene Text entspricht 1:1 dem was du aus der Datei erwartest), sondern die spätere Verarbeitung wenn ein

Code:

'

im Text auftaucht. Richtig?

Wäre es dann nicht eine Option die

Code:

'

durch Leerzeichen zu ersetzen (z.B. mittels Stringreplace)?

[DieDolly]

Das Ergebnis stimmt. Aber intern passiert irgendwas bzw passiert irgendwas nicht denn in einem Message Dialog wird die Zeile nicht mehr automatisch umgebrochen, wenn ein ' im String ist. Wenn ich den String hardcoded selbst reinschreibe und '' statt ' verwende klappt alles. Aber ein '' in der Ini-Datei bringt nicht das Resultat wie der hardcoded string.

Durch Leerzeichen ersetzen ist nicht machbar. Es handelt sich um Übersetzungen.

[Neutral General]

Delphi-Quellcode:

MessageDlg('Test und don''t und son ein mustn''t und bla und Test aber auch ein Test ist mit einem ''Test'' sehr don''t', mtInformation, [mbOK], 0);

https://www.delphipraxis.net/attachm...1&d=1560850673

Hab damit keine Probleme

[DieDolly]

Du hast den Text ja auch hardcoded im Programm drin.

Ließ genau diesen aus einer Ini-Datei aus. Das Ergebnis sollte ein anderes sein.

[Neutral General]

Bei mir das gleich Ergebnis:

Delphi-Quellcode:

procedure TForm3.FormCreate(Sender: TObject);
var ini: TIniFile;
    str: String;
begin
  ini := TIniFile.Create('D:\Test123.ini');
  try
//    ini.WriteString('TEST', 'Str', 'Test und don''t und son ein mustn''t und bla und Test aber auch ein Test ist mit einem ''Test'' sehr don''t');

    str := ini.ReadString('TEST', 'Str', '');
   // str := UTF8ToWideString(ini.ReadString('TEST', 'Str', '')); <--- geht auch
    MessageDLg(Str, mtInformation, [mbOK], 0);
  finally
    ini.Free;
  end;
end;

https://www.delphipraxis.net/attachm...1&d=1560850977