[adebt]

есть такой вот код

Код:

1 2	str := Excel.Workbooks[1].Worksheets[1].cells[1,1].text; Memo1.Lines.Append(str);

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

в этой ячейке 9409 байт кода, а в переменную str возвращает только 1024, хотя тип у нее widestring. Кто в курсе где могут быть грабли?

[Aristarh Dark]

Вот этот код прекрасно работает ~11Кб

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

var   Excel:OLEVariant;   longtext:string;   i:integer; begin   longtext:='';   for i:=1 to 100 do     longtext:=longtext+inttostr(i)+': 12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890'#13#10;   Excel:=CreateOLEObject('Excel.Application');   Excel.Visible:=true;   Excel.WorkBooks.Add;   Excel.WorkBooks[1].WorkSheets[1].Cells[1,1].Value:=longtext;   longtext:='';   longtext:=Excel.WorkBooks[1].WorkSheets[1].Cells[1,1].Value;   Memo1.Lines.Text:=Longtext; end;

[adebt]

Aristarh Dark, большое спасибо....
Вот здесь: Cells[1,1].Value; была проблема... у меня там вместо values text стоит... а теперь все заработало прекрасно