Ольга2,
А какая конечная цель? Это какая-то лабораторная или реальный проект? Задача то решается, но хочется понять цель. Потому, что первое, что приходит в голову, это сделать так
1.
function Test(const Buffer: string; Offset: Cardinal): Integer;
Исходный код взятый с сайта
delphisourcesource , пытаюсь разобраться с тем участком кода где ассемблер и переписать на delphi7, я уже нашла разбор примера на другом форуме и пытаюсь переделать под себя, чтобы на delphi7 работала.
Вариант предложенный Cobalt747
1.
2.
3.
4.
var
BufAsByte: Array of Byte absolute Buffer;
...
CurrentByte := BufAsByte[CurrentLen];
подходит, и работает без дженерика.
Только вот еще проблема заключается в несовместимости версий delphi на семерке, код предоставленный ниже не работает.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
function Test(var Buffer; BufferLen, Offset: Cardinal): Integer;
type
TypeString = char;
var
CurrentByte: Byte;
BufAsByte: Array of Byte absolute Buffer;
CurrentLen: Cardinal;
SkipDoubleQuotes: Boolean;
begin
SkipDoubleQuotes := false;
CurrentLen := Offset;
while CurrentLen <= BufferLen do
begin
// заменили CurrentByte := TArray<TypeString>(@Buffer)[CurrentLen]; на CurrentByte := BufAsByte[CurrentLen];
CurrentByte := BufAsByte[CurrentLen];
inc(CurrentLen);
if SkipDoubleQuotes then
begin
case CurrentByte of
'"', '''':
begin
if TArray<TypeString>(@Buffer)[CurrentLen - 2] = '\' then
Continue;
SkipDoubleQuotes := false;
end;
end;
end
else
case CurrentByte of
#9, #10, #13, #32:
begin
Result:=CurrentLen;
exit;
end;
'"', '''':
SkipDoubleQuotes := true;
end;
end;
Result:=-1;
exit;
end;
Там где условие case, выборка происходит ковычек появляется сообщение об ошибке.
1. [Error] Unit1.pas(69): Incompatible types: 'Byte' and 'Char'
2. TArray<TypeString>(@Buffer)[CurrentLen - 2] = '\ выдает сообщение [Error] Unit1.pas(71): Undeclared identifier: 'TArray'
3. #9, #10, #13, #32: - Incompatible types: 'Byte' and 'Char'
4. '"', '''': - выдает Incompatible types: 'Byte' and 'Char'.
Все эти ошибки появляются из-за того что код был написан на более новой версии delphi, у меня семерка. Как переписать на семерку?
