TEncoding.GetEncoding with memo

[cpalx]

This work in delphi, How can i make it work in Laarus?


try
  Memo1.Lines.SaveT('d:/myfile.txt', TEncoding.GetEncoding('iso-8859-9'));
finally
//......
end;   

[Bart]

Not like in Delphi, but you can change the encoding of the strings you save.
The needed routies are in lconvencoding unit.

Bart

[cpalx]

Code: Pascal  [Select][+][-]

1.  Memo1.Text:= LConvEncoding.UTF8ToISO_8859_1( Memo1.Text );
2.   Memo1.Lines.SaveToFile( 'd:/mytext.txt' )
3.  

but does not work

[rvk]

but does not work

You shouldn't set the converted string back into the TMemo. It can't display ISO_8859_1 and will corrupt the string (or insert ?).

You need to put the converted string into a string which you can write to the file directly:

Code: Pascal  [Select][+][-]

1. var
2.   Fs: TFileStream;
3.   Str: ansistring;
4. begin
5.   Fs := TFileStream.Create('d:\mytext.txt', fmCreate);
6.   try
7.     Str := LConvEncoding.UTF8ToISO_8859_1(Memo1.Text);
8.     Fs.WriteBuffer(PAnsiChar(Str)^, Length(Str));
9.   finally
10.     Fs.Free;
11.   end;

If you do this a lot in your program you might want to make a function for it.

[JuhaManninen]

This work in delphi, How can i make it work in Laarus?

Code: Pascal  [Select][+][-]

1. Memo1.Lines.SaveT('d:/myfile.txt', TEncoding.GetEncoding('iso-8859-9'));

I believe a patch for such method would be accepted.