FreePascal.ru

SSerge - огромное спасибо за пол пинка ))) все заработало, 2 дня не мог разобраться

теперь мой код принял вид:

//////////////////////////////////
function getUTFSymbol(str:string;i:integer):string; //Функция достает нужный мне символ по номеру
var rez:string;
begin
rez&#58 ...

У меня аналогичная проблема (+/-).
Версия Lazarus 1.0.4.
Ось: W7x64

Пишу так:


procedure TForm1.addnewchars(var A:string;str:string); //Кусок 1
begin
A:=A+UTF8Copy(str,Length(str),2); //Нужно к примеру 2-ой символ из str добавить A - буква "Б" - в этом примере/ и второй вопрос ...