02.02.2024, 03:23
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,020
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Ну, что бы меньше переделывать, можно убрать StringGrid поменять заполнение экселя.
Код:
const
xlCells : Array [1..26] Of String = ('N','R','V','Z',...); // Здесь перечислишь имена ячеек в эксель, которые заполняешь, только имена
...
var
I : Integer;
begin
For I := 1 To Min(Length(Edit1.Text),Length(Edit2.Text),Length(xlCells)) Do
Begin
XL.Range(xlCells[i] + '12').value := Edit1.Text[i];
XL.Range(xlCells[i] + '14').value := Edit2.Text[i];
End;
end;
как-то так.
|