Re: Kodowanie znaków

Article View: pl.comp.lang.delphi

Article #346586

Back to pl.comp.lang.delphi Previous Next

#346586

From: konsul41
Date: Fri, 27 Apr 2018 11:51

40 lines
2085 bytes

W dniu 27-04-2018 o 12:20, Romek pisze:
> Spróbuj:
> 
> TEncoding.Convert(...)
> 
> 
> 
> Romek
> 

const tab : array[1..11]  of Integer = ( 
1252,1250,1257,1251,1256,1253,1255,1254,874 ,1257,1258);
var
   i, j,li: Integer;
   Bytes : TBytes;
   res   : string;
begin
   mmo2.Lines.Clear;
   pb1.Max:=11;
   pb2.Max:=15000;
   for i := 1 to 11 do
   begin
     pb1.Position:=i;
     for j := 0 to 15000 do
     begin
       pb2.Position:=j;
       Application.ProcessMessages;
       try
         Bytes := TEncoding.GetEncoding(tab[i]).GetBytes('SPÃÅKA JAWNA');
         mmo2.Lines.Add('from ' + IntToStr(li) + ' to ' + IntToStr(j)+' 
'+TEncoding.GetEncoding(j).GetString(Bytes))

       except
         on E: Exception do

       end;
     end;
   end;
end;
Ale bez rezultatu.

Technical Details

Message-ID: <5ae30ebe$0$31365$65785112@news.neostrada.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!weretis.net!feeder4.news.weretis.net!newsreader5.netcologne.de!news.netcologne.de!peer03.ams1!peer.ams1.xlned.com!news.xlned.com!peer01.fr7!futter-mich.highwinds-media.com!news.highwinds-media.com!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!unt-spo-a-02.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail

References: <5ae2f257$0$618$65785112@news.neostrada.pl> <ecbe9550-73d2-49dc-953c-730db1e4b5ad@googlegroups.com>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!weretis.net!feeder4.news.weretis.net!newsreader5.netcologne.de!news.netcologne.de!peer03.ams1!peer.ams1.xlned.com!news.xlned.com!peer01.fr7!futter-mich.highwinds-media.com!news.highwinds-media.com!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!unt-spo-a-02.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail
Subject: Re: Kodowanie znaków
Newsgroups: pl.comp.lang.delphi
References: <5ae2f257$0$618$65785112@news.neostrada.pl> <ecbe9550-73d2-49dc-953c-730db1e4b5ad@googlegroups.com>
From: "konsul41@wp.pl" <konsul41@wp.pl>
Date: Fri, 27 Apr 2018 13:51:26 +0200
User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64; rv:52.0) Gecko/20100101 Thunderbird/52.7.0
MIME-Version: 1.0
In-Reply-To: <ecbe9550-73d2-49dc-953c-730db1e4b5ad@googlegroups.com>
Lines: 40
Message-ID: <5ae30ebe$0$31365$65785112@news.neostrada.pl>
Organization: Telekomunikacja Polska
NNTP-Posting-Host: 185.35.199.36
X-Trace: 1524829886 unt-rea-b-01.news.neostrada.pl 31365 185.35.199.36:27695
X-Complaints-To: abuse@news.neostrada.pl
X-Received-Bytes: 1791
X-Received-Body-CRC: 865445566
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message