[solved] how to print the 256 charracters of ISO8859 in lazarus?

[dcelso]

hello, I have a loop for i = 0 to 255 and I would like print on a lavel.caption or memo.text the 256 character of represation of this number.
thanks

[Leledumbo]

Code: [Select]

Label.Caption := '';
for i := 0 to 255 do Label.Caption := Label.Caption + Chr(i);


[theo]

Code: [Select]

uses LConvEncoding, character;
...
procedure TForm1.Button1Click(Sender: TObject);   
var Uc:UnicodeChar;
  i:integer;
begin
  Memo1.Clear;
  for i:=0 to 255 do
    begin
     Uc:=UTF8Decode(ISO_8859_1ToUTF8(chr(i)))[1];
     if not TCharacter.IsControl(Uc) then
       Memo1.Lines.Add(UTF8Encode(Uc)) else
         Memo1.Lines.Add('Control Character '+inttostr(i));
    end;
end; 

[dcelso]

thank you a lot of, very simple example. I like it.

[howardpc]

When I try this it fails to compile at the following line

Code: [Select]

    Memo1.Lines.Add(UTF8Encode(Uc)) else
with the error
unit1.pas(44,24) Error: Can't determine which overloaded function to call

Any ideas?

[theo]

Any ideas?

It works here:
Free Pascal Compiler version 2.7.1 [2013/01/24] for x86_64
Lazarus 1.1 r40120M x86_64-linux-gtk 2

Does typecasting help?

Code: [Select]

Memo1.Lines.Add(UTF8Encode(UnicodeString(Uc))) else

[Zoran]

Theo, you forgot to mention that your example is dependent on your (a very well written and useful) utf8tools package.

However, not this line actually, but the one above it. 

[theo]

Theo, you forgot to mention that your example is dependent on your (a very well written and useful) utf8tools package.

Thank you, but it's not. There is now a character.pas unit in the FPC RTL.
http://svn.freepascal.org/cgi-bin/viewvc.cgi/trunk/rtl/objpas/character.pas?view=log

[BigChimp]

Then you forgot it's dependent on trunk

Never mind, thanks for the code & the example.... and hoping unicode support will finally take off...

[theo]

Then you forgot it's dependent on trunk

You are right. It's about time for FPC 2.8. ;-)
There are other important things missing in 2.6 like MySQL 5.5 support etc.

[dcelso]

 , € symbol is not in ISO8850_1, I need lastest modification ISO8859_15

http://en.wikipedia.org/wiki/ISO/IEC_8859-15

¿It is possible to implement in lazarus?

[theo]

, € symbol is not in ISO8850_1, I need lastest modification ISO8859_15

http://en.wikipedia.org/wiki/ISO/IEC_8859-15

¿It is possible to implement in lazarus?

Why do you want that? You have Unicode (UTF-8) in Lazarus, all symbols and characters are there.

[dcelso]

Because im making a tool helper for anothe program that only uses iso8859 to write text. So it is my unique requirement,

[theo]

Not sure if I understand. But you can see in your http://en.wikipedia.org/wiki/ISO/IEC_8859-15, that
€ is at $A4, so you can simply replace the symbol representing this number with UTF-8 €.

 

[dcelso]

 , good trick. I coud do it, because the posibility that an ISO_8859_15ToUTF8 wiould exists is not possible for now. ¿dont?