[adebt]

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

Код:

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

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

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

[Aristarh Dark]

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

Код:

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 стоит... а теперь все заработало прекрасно