Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Алик_Е © (2007-10-04 08:46:00)
Уважаемые мастера.
Скажите как создать строку из 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 16:31:00) [1]

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

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

Сергей М. (2007-10-04 16:30:00) [2]

> DiamondShark © (04.10.07 16:25) [2]

Наверное)

Под стать тебе, такому же дурику)

DiamondShark (2007-10-04 16:25:00) [3]

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

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

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

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

Сергей М. (2007-10-04 13:20:00) [4]

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

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

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

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »