Einzelnen Beitrag anzeigen

greenmile

Registriert seit: 17. Apr 2003
1.107 Beiträge
 
Delphi 10.3 Rio
 
#23

AW: EEncodingError Fehler

  Alt 26. Mai 2014, 17:17
Super, jetzt bekomme ich diese nervige Meldung auch dem Android Handy.
Habe es da jetzt so (gepfuscht) gelöst:

function strFileLoad(const aFile: String): String;
var Err: Boolean;
var
aStr : TStrings;
begin
Result:='';
aStr:=TStringList.Create;
try
Err := false;
Try aStr.LoadFromFile(aFile, TEncoding.Ansi); Err := false; Except Err := true; End;
If Err then Try aStr.LoadFromFile(aFile, TEncoding.Default); Err := false; Except Err := true; End;
If Err then Try aStr.LoadFromFile(aFile, TEncoding.Ascii); Err := false; Except Err := true; End;
If Err then Try aStr.LoadFromFile(aFile, TEncoding.UTF8); Err := false; Except Err := true; End;
Result:=aStr.Text;
finally
aStr.Free;
end;
end;

Geändert von greenmile (27. Mai 2014 um 07:03 Uhr)
  Mit Zitat antworten Zitat