Колонки, отделенные Tab

← →
Алик_Е (2007-10-04 08:46) [0]

Уважаемые мастера.
Скажите как создать строку из n колонок,отделенных #9,
если в каждой более 2 строк.
Как копирование выделенного региона в Excel.
Вот фунция, но она работает, когда в 1 ячейке одно выражение(5),
но если в ней ("Пример"+#13#10+"Hello!") и такого региона 4*4 (Col,Row),
то она не работает.

procedure StringGridCopyToClipboard(SG: TStringGrid; CopySel: Boolean; CL: integer = -1;
RT: integer = -1; CR: integer = -1; RB: integer = -1);
var
i, j: Integer;
s: string;
begin
s := "";
with SG do
begin
if CopySel then
begin
CL := Selection.Left;
CR := Selection.Right;
RT := Selection.Top;
RB := Selection.Bottom;
end;
//при необходимости FixedRows и FixedCols можно заменить на 0
if (CL < FixedCols) or (CL > CR) or (CL >= ColCount) then
CL := FixedCols;
if (CR < FixedCols) or (CL > CR) or (CR >= ColCount) then
CR := ColCount - 1;
if (RT < FixedRows) or (RT > RB) or (RT >= RowCount) then
RT := FixedRows;
if (RB < FixedCols) or (RT > RB) or (RB >= RowCount) then
RB := RowCount - 1;
for i := RT to RB do
begin
for j := CL to CR do
begin
if j < CR then
begin
s := s + Cells[j, i] #9;
end;
end;
s := s + #13#10;
end;
end;
ClipBoard.AsText := s;
end;

← →
Сергей М. © (2007-10-04 13:20) [1]

> создать строку из n колонок

В строке нет и не может быть "колонок".

> Вот фунция, но она работает

Она НЕ может работать, ибо даже скомпилирована быть не может из-за абракадабры в строке

> s := s + Cells[j, i] #9;

← →
DiamondShark © (2007-10-04 16:25) [2]

> Алик_Е (04.10.07 08:46)

Заменяй #13#10 в строке из ячейки на что-нибудь другое. На что именно -- зависит от того, для чего тебе это преобразование нужно.
Кстати, а для чего?

> Сергей М. © (04.10.07 13:20) [1]

Ты ведь всё прекрасно понял, но предпочёл поизображать дурика. Мазохист, наверное?

← →
Сергей М. © (2007-10-04 16:30) [3]

> Кстати, а для чего?
>
>

А мкака тебе нахрен разница, для чего оно там, если ты не мазохист ?)

Колонки, отделенные Tab Найти похожие ветки