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

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

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

Перенос содержимого StringGrid в Memo

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

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

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

Fexion (2007-02-14 15:42:00) [1]
Плохиши маст фак ёр селф :)
SergGG - спс большое!
MBo - спс!!!!

MBo (2007-02-14 15:20:00) [2]
for i := ... to ... do begin
StringGrid1.Rows[i].Delimiter :='|';
Memo1.Lines.Add(StringGrid1.Rows[i].DelimitedText);
end;

SergGG (2007-02-14 15:16:00) [3]
Держи:

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;

Плохиш (2007-02-14 15:11:00) [4]
Халявщики маст дай...

Fexion (2007-02-14 14:12:00) [5]
В смысле? Я прошу помочь.

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

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

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

Наверх

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