FreePascal.ru

SSerge - нет , спасибо почитаю

я сейчас пост подправил, т.к. не верно выразился :

Единственный способ это "скакать" из кодировок но может есть способ напрямую работать с UTF8 ?

если сам FPC не умеет работать с UTF8 а только через лазаруские LCL либы это будет очень и очень печально...
по этому охота найти способ корректной работы с UTF8
----
Единственный способ это "скакать" из кодировок но может есть способ напрямую работать с UTF8 ?

набросал пример:

const
A &#58 ...

Программирую под Linux консольные приложения на FPC без !LCL!
Проблема в том что при работе с UTF8 строчками появляются странные глюки:
например:
const S : UTF8String = 'абвг'; ....
при попытке выбрать из UTF8 I'тый символ получаю пол символа , S[1] <> 'а' , приходится кидать move'ом по 2 байта
так ...

Подскажите как правильно создать контекст на форме, в винде делается всё довольно просто в линухе не понятно где что брать

спс за помощь, разобрался =)

написал прогу для винды в delphi, решил перенести всё под линух, но сталкнулся с тем что половину типов вообще незнает и половины функций нет ?
что делать ??

нет ф-й:
send, recv, WSAStartup, WSACleanup , listen, gethostbyaddr ...
нет констант и типов
SOCKET_ERROR, TWSAData, TSockAddrIn, PHostent ...

Kubanych
Ага, рабит, Спасибо =)
однако недолго думая решил пойти другим путём, который тоже работает ^_^

Procedure ListDir(CurDir&#58;String);
Var _Dir &#58; PDir;
_Dirent &#58; PDirent;
begin
_Dir &#58;= fpOpenDir(curdir);
Repeat
_Dirent &#58;= fpReadDir (_Dir^);
If _Dirent<>Nil then ...

uses sysutils;

Procedure ListDir(CurDir&#58;String);
var
F &#58; TSearchRec;
begin
if FindFirst(CurDir+'*&#46;*', faAnyFile, F ) = 0 then
repeat
writeln('->',curdir+F&#46;name);
until FindNext(F)<>0;
FindClose(F);
end;

begin
ListDir('/home/user/');
end&#46;


выводит всё , кроме ...