jak zapisać jakiś tekst w Unicode?? odpowiedzi proszę przesyłać na [email protected]. z góry dziękuję
oczywiście w Delphi ;) proszę o pomoc!
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
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;
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;
ale ciągle nie zapisuje mi pliku w UNICODE!!!!!!!!!!!!!
plz help me to jest ważne dla mnie..............
a w UTF-8 - jest taka możliwość??
--
Polacy nie piją - oni degustują,
Rosjanie nie chleją - oni ucztują...
A co u Was... ;)
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
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... ;)