Форум по Delphi программированию - Показать сообщение отдельно

UFO 007 · #12 03.07.2013, 21:23

... и действительно - typы - добавил префикс Ansi и даже в таком случае:

Код:

procedure ConvertCaseInsensitive(var C: CharSet);
var Ch: AnsiChar; // Char
begin
  For Ch := 'A' to 'Z' do
    if Ch in C then
      Include(C, AnsiChar(Ord(Ch) + 32));// Char
  For Ch := 'a' to 'z' do
    if Ch in C then
      Include(C, AnsiChar(Ord(Ch) - 32));// Char
end;

и всё равно ошибка: F2084 Internal Error : URW1111 - уж не приведение ли типов замешано? Если да, то как это делается (явно/не явно)?

З. Ы. Под D7 пашет - как по нотам, но сама D7 скрежещет под х64.