Главная страница
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.043 c
15-1170942733
vasIZmax
2007-02-08 16:52
2007.03.04
Вопрос для орешника....


11-1150290707
AndreyRus
2006-06-14 17:11
2007.03.04
PopUpMenu.Enabled:= false; // Bug!


4-1160204356
urdolphin
2006-10-07 10:59
2007.03.04
Output window из Visual Studio на Delphi


2-1171629155
Saposo
2007-02-16 15:32
2007.03.04
try ..... except


1-1168441791
novice007
2007-01-10 18:09
2007.03.04
использование Lame_enc.dll