Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.12.23;
Скачать: CL | DM;

Вниз

Колонки, отделенные 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]


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


Наверное)

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


 
Сергей М. ©   (2007-10-04 16:31) [4]


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


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



Страницы: 1 вся ветка

Текущий архив: 2007.12.23;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.046 c
4-1180815593
Arexander
2007-06-03 00:19
2007.12.23
Консоль на форме в PageControl. Как задать координаты размещения?


15-1195682297
GanibalLector
2007-11-22 00:58
2007.12.23
Россия в ЕВРО2008


15-1196159536
All More system
2007-11-27 13:32
2007.12.23
Разработка динамического сайта


1-1191498439
Kerk
2007-10-04 15:47
2007.12.23
Количество бит в байте


2-1196273237
Kaliostro
2007-11-28 21:07
2007.12.23
Работа с DBase IV через ADO





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский