convert type

← →
john_mag © (2005-11-14 12:37) [0]

Не могу справиться со следующей ошибкой:

Could notconvert variant of type (String) into type (Double)

Ошибка выскакивает после первой проверки условия. Текст начинается с цифры 2.

procedure TForm1.Button8Click(Sender: TObject);
var
Unit_,Count,Extend: OleVariant;
i: integer;
y: Variant;
begin
i:= 0;
Repeat
Unit_:= wdCharacter;
y:= Unit_;
Count:= i+1;
Extend:= wdExtend;
WordApplication1.Selection.MoveRight(Unit_,Count,Extend);
Until y <> "@";
end;

← →
КиТаЯц © (2005-11-14 12:59) [1]

wdCharacter что такое?

енто константа переменной Until_ , которая обозначает любой символ. Так же и wdWord-слово, wdSentence-предложение и тд.

convert type Найти похожие ветки