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

Вниз

Перенос содержимого StringGrid в Memo   Найти похожие ветки 

 
Fexion   (2007-02-14 13:47) [0]

Здравствуйте уважаемые мастера Делфи. Я очень расчитываю на вашу помощь. Передо мной стоит задача перенести содержимое ВСЕХ ячеек StringGrid (при том что их может быть неограниченное кол-во) в Memo и при этом раэделить их слешем "|". Должно получиться нечто вроде этого:
Test1|Test1|Test1|Test1|Test1|Test1| - Первая строка
Test2|Test2|Test2|Test2|Test2|Test2| - Вторая строка
^
Первый столбец

Заранее Спасибо!

Прикладываю исходник (5 кб)
http://slil.ru/23928381


 
Плохиш ©   (2007-02-14 14:08) [1]


> Fexion   (14.02.07 13:47)  
> Передо мной стоит задача

Я не понял, это вы жалуетесь или хвалитесь?


 
Fexion   (2007-02-14 14:12) [2]

В смысле? Я прошу помочь.


 
Плохиш ©   (2007-02-14 15:11) [3]

Халявщики маст дай...


 
SergGG ©   (2007-02-14 15:16) [4]

Держи:

procedure TForm1.Button1Click(Sender: TObject);
Var
i,j: integer;
begin
 for i:=0 to table.RowCount -1 do
 begin
  if i>0 then
   s.Lines.Add("");
  for j:=0 to table.ColCount -1 do
    s.seltext:=(""+table.Cells[j,i]+"|")
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
 for i:=0 to table.RowCount -1 do
  for j:=0 to table.ColCount -1 do
  table.Cells[j,i]:=format("[%d, %d]",[i,j]);
end;


 
MBo ©   (2007-02-14 15:20) [5]

for i := ... to ...  do begin
   StringGrid1.Rows[i].Delimiter :="|";
   Memo1.Lines.Add(StringGrid1.Rows[i].DelimitedText);
 end;


 
Fexion   (2007-02-14 15:42) [6]

Плохиши маст фак ёр селф :)
SergGG - спс большое!
MBo - спс!!!!



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

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

Наверх




Память: 0.47 MB
Время: 0.039 c
2-1171526671
vitv
2007-02-15 11:04
2007.03.04
Проблема выборки большого числа записей(100 000).


15-1170761747
data
2007-02-06 14:35
2007.03.04
посоветуйте хороший хостинг с php и sql (платный)


2-1171536281
SQL
2007-02-15 13:44
2007.03.04
Проблемма с вводом даты в Windows XP


3-1165395659
DmitrichJ
2006-12-06 12:00
2007.03.04
Клиент-Сервер. InterBase. Почему не работает через сеть?


15-1171002404
Хинт
2007-02-09 09:26
2007.03.04
Хранение данных и доступ к ним