Forum: Sonstige Fragen zu Delphi
Delphi
by rakekniven,
12. Feb 2010
Mache es nun so:
ReadLn(myfile, a);
if WideStrUtils.HasUTF8BOM(a) then
begin
delete(a, 1, 1);
s := UTF8toString(a)
end
else
Forum: Sonstige Fragen zu Delphi
Delphi
by rakekniven,
12. Feb 2010
Ich habe mit dem Mechanismus readln und Datentyp "RawByteString" schon einige Anwendungen angepasst und dadurch die Mehrsprachigkeit (28 Sprachen inkl. asiatischen) eingebaut.
Das klappte klaglos.
Was möchtest Du mir mit den beiden Codeschnipseln sagen?
Gruß
Forum: Sonstige Fragen zu Delphi
Delphi
by rakekniven,
12. Feb 2010
Ich lese eine Textdatei via AssignFile/readln ein. (D2010)
Falls das erste Zeichen ein ";", soll die Zeile ignoriert werden.
Alles Konstrukt von D7:
if Length(S2) > 0 then
DoLine := Trim(String(S2)) <> ';' // Kommentarzeilen beginnen mit einem ';'
else
DoLine := FALSE;