Пользовательский перечислитель Delphi выдает странные ошибки - PullRequest
Новая
       8

Пользовательский перечислитель Delphi выдает странные ошибки

3 голосов
/ 29 января 2011

При создании пользовательского перечислителя для разбора строк я вижу странные сообщения об ошибках. При использовании записи выдает следующую ошибку:

E2010 Несовместимые типы: 'TSplitStringEnumerator' и 'Pointer'

При использовании классов (вставьте несколько кодов .Create в коде) вместо записей время от времени я получаю некоторые внутренние ошибки:

Кто-нибудь знает, как обеспечить работу перечисления с типами данных записей вместо классов? 

type
    TSplitStringEnumerator = record
        StringToParse:          string;
        Separator:              Char;
        S:                      Integer;
        E:                      Integer;
        L:                      Integer;
        function    GetCurrent  (): string; inline;
        function    MoveNext    (): Boolean; inline;
        property    Current:    string read GetCurrent;
    end;

    TSplitStringGenerator = record
        Enum:                   TSplitStringEnumerator;
        function GetEnumerator: TSplitStringEnumerator; inline;
    end;

function SplitString( const StringToParse: string; Separator: Char ): TSplitStringGenerator; //inline;
begin
    Result.Enum.StringToParse := StringToParse;
    Result.Enum.Separator     := Separator;
    Result.Enum.S             := 0;
    Result.Enum.E             := 0;
    Result.Enum.L             := Length( StringToParse );
end;

procedure Test();
var
    S: string;
begin
    for S in SplitString( 'A;B;C', ';' ) do begin
        OutputDebugString( PChar( S ) );
    end;
end;

{ TSplitStringGenerator }

function TSplitStringGenerator.GetEnumerator(): TSplitStringEnumerator;
begin
    Result := Enum;
end;

{ TSplitStringEnumerator }

function TSplitStringEnumerator.GetCurrent(): string;
begin
    Result := Copy( StringToParse, S, E - S );
end;

function TSplitStringEnumerator.MoveNext(): Boolean;
begin
    S := E + 1;
    Result := S <= L;
    E := S;
    while ( E <= L ) and ( StringToParse[ E ] <> Separator ) do Inc( E );
end;

Ответы [ 2 ]

4 голосов
/ 29 января 2011

Я нашел похожее сообщение об ошибке # 72213 на КК.Ошибка была исправлена ​​в Delphi 2010 (см. Комментарии к резолюции).

2 голосов
/ 29 января 2011

Этот код компилируется и, по-видимому, успешно выполняется для меня в Delphi 2010. Выходные данные: 

Debug Output: A Process Project4.exe (4656)
Debug Output: B Process Project4.exe (4656)
Debug Output: C Process Project4.exe (4656)

Возможно ли, что перечислители с записями не поддерживаются в Delphi 2007?

...