Excel+ Delphi ошибка типов данных

[Tanuska___:)]

я хочу из екселя найти данные и занести например на форму в эдит!
но , данные не всегда в одной и той же позиции в екселе т.е.
есть какието расчеты и в конце результирующая таблица из которой надо забрать 9 цифр
я делала вот так:

j:=38;
    V:=Sheet.Cells[j, 22].Value;
    while V <>'Г.Витебск' do begin
      inc(j);
      V:=Sheet.Cells[j, 22].Value;
    end ;

     V:= Sheet.Cells[j, 22].Value;

Edit38.Text:= Sheet.Cells[j, 25].Value;
Edit39.Text:= Sheet.Cells[j+1, 25].Value;
Edit40.Text:= Sheet.Cells[j+2, 25].Value;

Edit42.Text:= Sheet.Cells[j, 26].Value;
Edit43.Text:= Sheet.Cells[j+1, 26].Value;
Edit44.Text:= Sheet.Cells[j+2,26].Value;

 Edit45.Text:= Sheet.Cells[j, 27].Value;
Edit46.Text:= Sheet.Cells[j+1, 27].Value;
Edit47.Text:= Sheet.Cells[j+2,27].Value;

while V <>'Г.Витебск' do begin вот тут делфи пишет не может сконвертировать String в Double!!!!
на всякий случай типы данных :
V:Variant;
j:Integer;

так о чем он??? какие даблы он пытается сконвертировать??? пожалусто кто нибудь скажите ,что тут не так?

[Kotofff]

Может вот так поможет :

while String(V) <>'Г.Витебск' do begin

Попробуй и напиши ... давно я не работал с Excel из Delphi

[NOOB]

а если попробовать сразу V объявить как string

[plato]

while FloatToStr(V) <>'Г.Витебск' do begin

[Tanuska___:)]

а кто нибудь из вас пробовал создавать новые листы в книке ексель??
ведь если можно создавать Workbook то наверно можно както создавать и присваивать опред. имя для Sheet... поделитесь секретом

[plato]

точно не помню но как-то так
V.Workbooks[k].Sheets.Add;
V.Workbooks[k].ActiveSheet.Name:=Name;

[maladoy]

procedure AddWorkSheet(WorkBookName, WorkSheetName: Ansistring);
var
  k, j: integer;
begin
  //if VarIsEmpty(Excel) = false then
  //begin
    k := WorkBookIndex(WorkBookName);
    if k <> 0 then
    begin
      Excel.DisplayAlerts := False;
      Excel.Workbooks[k].Sheets.Add;
      j := WorkSheetIndex(WorkBookName, WorkSheetName);
      if j = 0 then
        Excel.Workbooks[k].ActiveSheet.Name := WorkSheetName;
    end;
  //end;
end;

delphiworld6.0

[Tanuska___:)]

огромное спасибо!!!!!!

[plato]

и не забудьте подарить детям шоколадку