Форум: "Начинающим";
Текущий архив: 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.058 c