Форум: "Начинающим";
Текущий архив: 2007.03.04;
Скачать: [xml.tar.bz2];

Вниз

Перенос содержимого 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.036 c