[cash]

Ребята, помогите разобраться с этими задачами )))
Мне хотя бы нужен алгоритм решения ))) Заранее спасибо )))


Задание 1
Создать функцию, преобразующую символы строки из Windows-кодировки
в Dos-кодировку (из ANSI-кодировки в ASCII-кодировку).
Подсказка1:
Функция должна возвращать строку в Dos-кодировке (в ASCII-кодировке), которая
должна корректно (в первую очередь это касается русских букв!) выводится в Dos-окне
консольного приложения.
Подсказка2:
Коды русских букв (без буквы Ё) в Windows-кодировке: с 192 и до 255 (вначале большие
потом маленькие и без разрыва!).
Подсказка3:
Обязательно использовать функцию SetLength для переменной Result в функции перед ее
использованием.

Задание 2
Получить все символы, расположенные между первым и вторым
двоеточием, если второго двоеточия нет, то до конца строки.

[angvelem]

1.

Код:

function StrToOem(const AnsiStr: string): string;
begin
  SetLength(Result, Length(AnsiStr));
  if Length(Result) > 0 then
    CharToOemBuff(PChar(AnsiStr), PChar(Result), Length(Result));
end;

function OemToAnsiStr(const OemStr: string): string;
begin
  SetLength(Result, Length(OemStr));
  if Length(Result) > 0 then
    OemToCharBuff(PChar(OemStr), PChar(Result), Length(Result));
end;

2. Pos, PosEx