не StringGrid1.Cells[1,1]:='Delphi'; а вот так SG1.C[1,1]:='Delphi'

[Nemesisking]

У меня в алгоритме очень много 'StringGrid1.Cells'!!! Как можно укоротить, где описать и как? Выглядеть это будет не StringGrid1.Cells[1,1]:='Delphi'; а вот так вот SG1.C[1,1]:='Delphi'

[still_alive]

Так никак если только так:
with SG1 do
begin
Cells[1,1]:=...
end;

[Ring0Sn]

У меня в алгоритме очень много 'StringGrid1.Cells'!!! Как можно укоротить, где описать и как? Выглядеть это будет не StringGrid1.Cells[1,1]:='Delphi'; а вот так вот SG1.C[1,1]:='Delphi'

Что мешает вынести StringGrid1.Cells[1,1]:='Delphi' в отдельную процедуру? например:

procedure MySetCells(ACol, ARow: Integer; text: string);
begin
 Form1.StringGrid1.Cells[ACol,ARow]:=text;
end;

далее используешь просто как 
MySetCells(1,1, 'Delphi');

если такое неустраивает то делай наследника класа TStringGrid

[mutabor]

или так

procedure DoSomething(S: TStringGrid);
begin
S.Cells[1,1]:='Delphi';
end;

DoSomething(StringGrid1);

P.S. а вообще больше внимания нужно уделять оптимизации, а упростить код можно выносом таких блоков в отдельные процедуры и функции, или даже модули

[Ring0Sn]

P.S. а вообще больше внимания нужно уделять оптимизации, а упростить код можно выносом таких блоков в отдельные процедуры и функции, или даже модули

Согласен! а вообще лучше нестараться чтоб было много таких блоков (или хотябы чтоб они были в циклах)

[pu4koff]

в данном случае with - самый оптимальный вариант, а процедура только тормозить работу будет (на маленьких прогах то незаметно будет, а вот на большом проекте уже не есть гуд такое). Да и в любом случае Ctrl+C - Ctrl+V еще никто не отменял. А с такими подходами лень программиста выльется в ленивое неповоротливое приложение.
ЗЫ. если хочется писать коротко, то переходите на С++ с его возможностью перегрузки операторов

[Ring0Sn]

Человек интересовался как укоротить а не как ускорить )
pu4koff, самый оптимальный вариант(и ответ на ево вопрос) ето делать наследника класса TStringGrid и переопределить property Cells на C (только невижу смысла вообще никакова в том что он хочет сделать)

[Ring0Sn]

Кстати Mutabor
ты писал

procedure DoSomething(S: TStringGrid);
begin
S.Cells[1,1]:='Delphi';
end;

DoSomething(StringGrid1);

Ты представляешь что будет если так сделать?
При каждом вызове DoSomething внитри процедуры будет происходить копирование StringGrid1, а если в него метров 50 загружено инфы?
Думаю правильнее будет если так

procedure DoSomething(var S: TStringGrid);