functionLoadUTF8File(FileName:string):string; var SS: TStringStream; begin SS := TStringStream.Create('', TEncoding.UTF8); SS.LoadFromFile(FileName); Result := SS.DataString; end; procedureSaveUTF8File(Content:
UtF-8文件读取函数 程序代码 程序代码 functionLoadUTF(f:string;b:boolean=true):string; var ms:TMemoryStream; s,hs:string; begin Result:=''; ifnotFileExists(f)thenexit; ms:=TMemoryStream.Create; ms.LoadFromFile(f); ifbthenbegin SetLength(hs,3); ms.Read(hs[1],3); ifhs<>#$EF#$BB#$B...
// UtF-8文件读取函数 functionLoadUTFFile(const FileName: string; ReadHeader: Boolean = True): string; var MemStream: TMemoryStream; S, HeaderStr:string; begin Result:=''; if not FileExists(FileName) then Exit; MemStream := TMemoryStream.Create; try MemStream.LoadFromFile(FileName); if Rea...
with TMemoryStream.Create do try LoadFromFile('c:\temp\temp.txt'); SetLength(S, Size); Read(S[1], Length(S)); if Copy(S, 1, 3) <> #$EF#$BB#$BF then Exit; Memo2.Text := Utf8ToAnsi(Copy(S, 4, MaxInt)); finally Free; end; end;©...
UtF-8文件读取函数 程序代码 程序代码 function LoadUTF(f:string;b:boolean=true):string; var ms:TMemoryStream; s,hs:string; begin Result:=''; if not FileExists(f) then exit; ms:=TMemoryStream.Create; ms.LoadFromFile(f); if b then begin ...
直接使用字串流方式加载文件即可 stm := TStringStream.Create('', TEncoding.UTF8);stm.LoadFromFile(sFileName);sTemp := stm.DataString;//获得解码内容
MyStringList.LoadFromFile(FileName, TEncoding.UTF8); ``` 3. 将字符串添加到TStringList中时,确保使用UTF-8编码: ```delphi MyStringList.Add('你好,世界!'); ``` 4. 遍历TStringList并处理UTF-8编码的字符串: ```delphi var I: Integer; begin for I := 0 to MyStringList.Count - 1 do be...
(Sender: TObject);var S: string;begin/ 取if not FileExists(c:temptemp.txt) thenExit;with TMemoryStream.Create do tryLoadFromFile(c:temptemp.txt);SetLength(S, Size);Read(S1, Length(S);if Copy(S, 1, 3) <> #$EF#$BB#$BF then Exit;Memo2.Text := Utf8ToAnsi(Copy(S, 4, MaxInt...
LoadFromFile('c:\temp\temp.txt'); ifSize<4then Exit; SetLength(S,2); Read(S[1],Length(S)); if Copy(S,1,2)<>#$FF#$FEthenExit; SetLength(W,(Size-2)div SizeOf(WideChar)); Read(W[1],Length(W)*SizeOf(WideChar));
Memo1.Lines.Clear;ADoc:=TNativeXml.Create;tryADoc.LoadFromFile(Edit1.Text);ADoc.XmlFormat:=xfReadable;Memo1.Lines.Text:=ADoc.WriteToString;finally ADoc.Free;end;end; 注意,ADoc.XmlFormat:= xfReadable将确保该文件是以易读的形式列出(以回车符和缩进)。