Zitat von
rakekniven:
Mache es nun so:
das delete(a, 1, 1) stimmt definitiv nicht, denn dieses BOM ist 3 Byte groß.
Delphi-Quellcode:
uses WideStrUtils;
ReadLn(myfile, a);
if HasUTF8BOM(a) then
begin
delete(a, 1, Length(sUTF8BOMString)); // oder eben delete(a, 1, 3);
s := UTF8toString(a);
end
else
s := a;