Запись строки к TFileStream в Delphi 2010

Question

Запись строки к TFileStream в Delphi 2010

просто создайте свою собственную функцию членства доступа для расширения класса.

14

delphi unicode delphi-2010 delphi-2007

задан Community 23 May 2017 в 11:45

2 ответа

Delphi 2010 предлагает для этого хорошее решение, описанное здесь:

http://docwiki.embarcadero.com/CodeExamples/en/StreamStrRdWr_%28Delphi%29

var
  Writer: TStreamWriter;
...

  { Create a new stream writer directly. }
  Writer := TStreamWriter.Create('MyFile.txt', false, TEncoding.UTF8);
  Writer.Write('Some Text');

  { Close and free the writer. }
  Writer.Free();

14

ответ дан 1 December 2019 в 09:02

Другие вопросы по тегам:

delphi unicode delphi-2010 delphi-2007

Похожие вопросы:

score 16 · Accepted Answer

You don't need a separate buffer to write a string to a stream. Probably the simplest way to do it is to encode the string to UTF8, like so:

procedure TStreamEx.writeString(const data: string);
var
   len: cardinal;
   oString: UTF8String;
begin
   oString := UTF8String(data);
   len := length(oString);
   self.WriteBuffer(len, 4);
   if len > 0 then
      self.WriteBuffer(oString[1], len);
end;

function TStreamEx.readString: string;
var
   len: integer;
   iString: UTF8String;
begin
   self.readBuffer(len, 4);
   if len > 0 then
   begin
      setLength(iString, len);
      self.ReadBuffer(iString[1], len);
      result := string(iString);
   end;
end;

I've declared TStreamEx as a class helper for TStream, but it shouldn't be too difficult to rewrite these as a solo procedure and function like your example.