Unicode......?

0

jak zapisać jakiś tekst w Unicode?? odpowiedzi proszę przesyłać na [email protected]. z góry dziękuję

0

oczywiście w Delphi ;) proszę o pomoc!

0

var
Tekst: WideString;
begin
Tekst := 'Ala ma kota, a kot ma już dość Ali';
end;

Gorzej ze znakami nie odpowiadającymi aktualnemu kodowaniu.

--
Jest jeszcze jeden błąd ... :)
--------Oficjalny kanał----------
Service for programmers w IRC:
Kanał: #4programmers.net
Serwer: warszawa.ircnet.pl
Sieć: POLNet
Port: 6667

0

a teraz jak to zapisać do pliku - też w unicode........ Zrobiłem takie coś ale nie działa:

var
Tekst: WideString;
plik: textfile;
begin
Tekst := 'Ala ma kota, a kot ma już dość Ali';
Rewrite(plik);
Reset(plik);
AssignFile(plik, 'c:/plik.txt');
Write(plik, Tekst);
end;

0

ok już mam. nie ma jak metoda prób i błędów...

var
Tekst: WideString;
plik: textfile;
begin
Tekst := 'Ala ma kota, a kot ma już dość Ali';
AssignFile(plik, 'c:/plik.txt');
Rewrite(plik);
Writeln(plik, Tekst);
CloseFile(plik);
end;

0

ale ciągle nie zapisuje mi pliku w UNICODE!!!!!!!!!!!!!

plz help me to jest ważne dla mnie..............

0

a w UTF-8 - jest taka możliwość??

--
Polacy nie piją - oni degustują,
Rosjanie nie chleją - oni ucztują...
A co u Was... ;)

0

na przykład tak

var
Tekst: WideString;
plik: file of WideChar;
begin
Tekst := 'Ala ma kota, a kot ma juz dosc Ali';
AssignFile(plik, 'c:\winnt\profiles\pq\desktop\plik.txt');
Rewrite(plik);
BlockWrite(plik, tekst[1], Length(tekst));
CloseFile(plik);
end;

--
Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1

0

powiem w czym jest różnica - kiedy otworzymy plik.txt w notatniku i klikniemy ZAPISZ JAKO na dole okna dialogowego pokarze się Unicode, jua chcę aby pokazało się UTF-8 bo XML tylko to toleruje - chodzi o polskie znaki. jest to mi bardzo potrzebne!!

--
Polacy nie piją - oni degustują,
Rosjanie nie chleją - oni ucztują...
A co u Was... ;)

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0