Topic: Все текущие данные из Grid в Memo
Здравствуйте. Подскажите, как можно скопировать все текущие данные из grida в memo? Там у меня порядка 5-10 строк и 3-5 столбцов с данными?
Спасибо.
My Visual Database → Russian → Все текущие данные из Grid в Memo
Здравствуйте. Подскажите, как можно скопировать все текущие данные из grida в memo? Там у меня порядка 5-10 строк и 3-5 столбцов с данными?
Спасибо.
Здравствуйте.
Можете сделать этого с помощью скрипта
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
iRow, iCol: integer;
s: string;
begin
for iRow := 0 to Form1.TableGrid1.RowCount-1 do
begin
s := '';
for iCol := 0 to Form1.TableGrid1.Columns.Count-2 do
begin
s := s + Form1.TableGrid1.Cells[iCol,iRow] + ' | ';
end;
Form1.Memo1.Lines.Add(s);
end;
end;
Здравствуйте.
Можете сделать этого с помощью скрипта
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean); var iRow, iCol: integer; s: string; begin for iRow := 0 to Form1.TableGrid1.RowCount-1 do begin s := ''; for iCol := 0 to Form1.TableGrid1.Columns.Count-2 do begin s := s + Form1.TableGrid1.Cells[iCol,iRow] + ' | '; end; Form1.Memo1.Lines.Add(s); end; end;
Дмитрий спасибо, всё работает. Если можно, ещё один вопрос. Что добавить в этот скрипт, что бы в поле Memo2 переносились из TableGrid1 все данные только из первого столбца, например все существующие "наименование". Т.е в Memo1 переносятся все данные из TableGrid1, а в Memo2 только из первого столбца/колонки.
Спасибо.
kovalenko
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
iRow, iCol: integer;
s: string;
begin
for iRow := 0 to Form1.TableGrid1.RowCount-1 do
begin
s := '';
for iCol := 0 to Form1.TableGrid1.Columns.Count-2 do
begin
s := s + Form1.TableGrid1.Cells[iCol,iRow] + ' | ';
if iCol = 0 then Form1.Memo2.Lines.Add(s);
end;
Form1.Memo1.Lines.Add(s);
end;
end;
kovalenko
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean); var iRow, iCol: integer; s: string; begin for iRow := 0 to Form1.TableGrid1.RowCount-1 do begin s := ''; for iCol := 0 to Form1.TableGrid1.Columns.Count-2 do begin s := s + Form1.TableGrid1.Cells[iCol,iRow] + ' | '; if iCol = 0 then Form1.Memo2.Lines.Add(s); end; Form1.Memo1.Lines.Add(s); end; end;
СПАСИБИЩЕ!!!!
Дмитрий, маленький вопрос в догонку. Есть в скрипте разделительный значок ' | ', его можно как-то убрать из поля Memo2, а то идет наименование и после него ' | ' . Т.е в Memo1 он позволяет разделить несколько слов, а в Memo2 явно лишний. Спасибо.
Вместо этой строки
if iCol = 0 then Form1.Memo2.Lines.Add(s);
напишите
if iCol = 0 then Form1.Memo2.Lines.Add(Form1.TableGrid1.Cells[iCol,iRow]);
Вместо этой строки
if iCol = 0 then Form1.Memo2.Lines.Add(s);
напишите
if iCol = 0 then Form1.Memo2.Lines.Add(Form1.TableGrid1.Cells[iCol,iRow]);
СПАСИБО ЕЩЁ РАЗ!!!
My Visual Database → Russian → Все текущие данные из Grid в Memo
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi