Главная страница
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.48 MB
Время: 0.041 c
9-1145082805
Evgeniy_
2006-04-15 10:33
2007.03.04
GLScene, работа с тексурами


2-1171409686
raptoridze
2007-02-14 02:34
2007.03.04
переместить чужое окно


15-1171047425
vasIZmax
2007-02-09 21:57
2007.03.04
Глупый вопрос...


15-1170827731
Нож
2007-02-07 08:55
2007.03.04
BDS 2006 Architect Edition Update 2 проблемы с лицензией


15-1171034206
oldman
2007-02-09 18:16
2007.03.04
Пожалуй повторюсь, а то ветка так и затерялась без единого ответа