Преобразование строк в *.dfm файлах.

[husker]

Доброго времени суток уважаемые программисты. Пишу курсовую на тему "проверка орфографии в Delphi приложениях". Т.е. программа, которая будет проверять в Delphi исходниках все возможные строки введенные разработчиком на наличие орфографических ошибок.

Как я понял, в dfm фалах хранятся все заданные в инспекторе объектов свойства форм и компонентов на этих формах. Естественно мое приложение должно проверять на орфографию строковые свойства в этих файлах, например свойство caption у формы.

Но возник ряд проблем, связанных со строками в dfm фалах. Открыв один из таких файлов блокнотом я увидел, что строки в них хранятся в следующем виде:

Caption = #1092#1086#1088#1084#1072' '#1087#1077#1088#1074#1072#1103
Caption = 'форма первая'

Подскажите пожалуйста самый рациональный способ, как вытащить подобные строки из dfm фала и преобразовать "нормальный" вид. Ну и конечно, как после редактирования этой строки моим приложением, преобразовать его обратно в "формат dfm строк" и запихнуть обратно в файл. За ранее благодарен.

[Хамяг]

можно написать программу, с помощью которой можно конвертировать подобные "строки". потом её использовать.

хотя, на самом деле, эта "строчка" - последовательность символов. в dfm файле русские строчки хранятся именно так.

[Zer0]

Строки хранятся в формате UTF-8 (десятичное значение), я не помню есть ли стандартные функции по переводу кода UTF-8 в символ, но суть такая:
1) Перевести Dec в Hex (например #1092=444)
2) в соответствии с таблицей символов подобрать символ (http://sadesign.ru/tools/unicode/ например)

ну и обратное преобразование аналогично

[husker]

В общем не нашел я стандартных функций перевода юникода. Сделал выборку на все 66 символов русского алфавита.

[Serge_Bliznykov]

если хотите, то посмотрите программку DfmUn2An (бесплатная, с исходным кодом)
ссылочка.

DfmUn2An (Dfm Unicode To Ansi)
------------------------------
Программа переводит ресурс dfm-файла(ов) из Unicode в Ansi.
Это нужно для совместимости Delphi 5 с более поздними версиями
Delphi 6, 7... Они используют Unicode, а Delphi 5 Ansi.

(с)
Александр Бартов 15.03.2003
E-mail: delphikol@narod.ru
WEB-page: http://delphikol.narod.ru

правда, она под KOL заточена, но идею оттуда взять вполне можно:

//======================================
//== ПЕРЕВОД СТРОКИ ИЗ UNICODE В ANSI ==
//======================================
function StrUnic2Ansi(Str: string): string;
var
  x: Integer;
  Num: string;
begin
  //== Удаляем из строки символы <'> - #39
  x := Pos(#39, Str);
  repeat
    Delete(Str, x, 1);
    x := Pos(#39, Str);
  until x = 0;

  for x := Pos('#', Str) to Length(Str) - 4 do
    if (Str[x + 1] in ['0'..'9']) and (Str[x + 2] in ['0'..'9']) and
       (Str[x + 3] in ['0'..'9']) and (Str[x + 4] in ['0'..'9']) then
    begin
      Num := Str[x + 1] + Str[x + 2] + Str[x + 3] + Str[x + 4];
      Delete(Str, x, 5);
      Insert(WideChar(StrToInt(Num)), Str, x);
    end;

  //== Переводим '#39' в <'>
  x := Pos('#39', Str);
  if x = 0 then
  begin
    Result := Str;
    Exit;
  end;

  repeat
    Delete(Str, x, 3);
    Insert(#39, Str, x); // '#39' -> <'>
    x := Pos('#39', Str);
  until x = 0;
  Result := Str;
end;

// пример использования
procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text := StrUnic2Ansi(''#1092#1086#1088#1084#1072' '#1087#1077#1088#1074#1072#1103'');
end;