Hallo,
kommt darauf an wie du Excel rufst.
Delphi-Quellcode:
excel:=CreateOleObject('excel.Application');
if length(ADODataSet2.FieldByName('AText').AsString) > 1 then
Excel.Rows[27+i].RowHeight := 18;
if length(ADODataSet2.FieldByName('AText').AsString) > 50 then
Excel.Rows[27+i].RowHeight := 38;
if length(ADODataSet2.FieldByName('AText').AsString) > 100 then
Excel.Rows[27+i].RowHeight := 58;
if length(ADODataSet2.FieldByName('AText').AsString) > 150 then
Excel.Rows[27+i].RowHeight := 78;
if length(ADODataSet2.FieldByName('AText').AsString) > 200 then
Excel.Rows[27+i].RowHeight := 98;
if length(ADODataSet2.FieldByName('AText').AsString) > 250 then
Excel.Rows[27+i].RowHeight := 118;
ich mache das so, ist zwar Datenbank sollte aber auch mit Stringgrid gehen.
Gruss