Перекодировать текст в ANCII код

[unicode]

Задача:
Есть строка вида - www.programmersforum.ru;unicode;password
ее нужно перекодировать в ANCII код, так что бы эта строка могла заново перекодироваться в простой человеческий язык, стоит учесть что возможно пользователь будет использовать цифры и русские буквы.

[Пепел Феникса]

вы имели в виду ANSI или досовскую кодировку(название не помню)?
а то вашего типа кодировки я чтото не нашел нигде

[unicode]

Пепел Феникса, вы верно заметили, я немного ошибся, нужно в ANSI

[Пепел Феникса]

стандартный хелп Дельфи

Converts a string of Unicode characters into a UTF-8 string.

Unit

System

Category

character set conversions

function UnicodeToUtf8(Dest: PChar; MaxDestBytes: Cardinal; Source: PWideChar; SourceChars: Cardinal): Cardinal; overload;
function UnicodeToUtf8(Dest: PChar; Source: PWideChar; MaxBytes: Integer): Integer;overload; deprecated;

Description

Call UnicodeToUtf8 to convert a Unicode string to a null-terminated sequence of UTF-8 characters.

Dest receives the resulting null-terminated array of UTF-8 characters.

MaxDestBytes or MaxBytes indicates the number of bytes available in the buffer specified by Dest, not counting the byte for the null terminator.

Source is an array of Unicode characters.

SourceChars is the number of characters in Source. If SourceChars is not specified, Source must be null-terminated.

UnicodeToUtf8 returns the number of bytes written to Dest.

а из PChar в стринг перевести не трудно

[Квэнди]

Не помню с какой версии(по-мойму только с последней) тип string и ansistring являются скрытыми классами, в которых есть методы перекодирования строк.

[unicode]

вот код:

 add := Edit1.Text + ';' + Edit2.Text + ';' + Edit6.Text;
 addfinal := UnicodeToUtf8(add);
 Memo1.Lines.Add(addfinal);

в строке

addfinal := UnicodeToUtf8(add);

выдает ошибку

Main.pas(77): There is no overloaded version of 'UnicodeToUtf8' that can be called with these arguments

что делать, подскажите.

[Пепел Феникса]

а вы параметры посмотрели?

вот готовая функа на основе вышеизложенных

function UniToUTF8(Sourse:WideChar):string;
var s:string;
begin
 SetLength(s,length(Sourse));
 UnicodeToUtf8(PChar(s),@Sourse,length(Sourse))
end;

если честно не проверял, писал прямо тут

[Stilet]

Есть строка вида

Может имеется ввиду URL-кодировка?