Вывод числа виз массива в Stringgrid

SergeyTechno

Доброе утро, помогите разобраться Нужно в Stringgrid вывести число из массива. Суть в том что когда в Edit мы вписываем число (например 1111), нужно чтобы выводилось 1 1 1 1 выводилось отдельно в каждую ячейку. В данном коде в конце я заполняю первую строку, помогите вывести число в каждую ячейку
unit Unit2;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
      private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
     procedure TForm1.Button1Click(Sender: TObject);
        var
        mas:array of array of integer;
        a,b:string;
        l,w,i,j:integer;
     begin
        a:=edit1.Text;
        b:=edit2.Text;
        //======================================================
        l:=Length(a+b);
     if a<b then
        w:=Length(a)+3
     else
        w:=Length(b)+3;
        //======================================================
        StringGrid1.ColCount:=l;
        StringGrid1.RowCount:=w;
     if a<b then
        for I := l-length(a)+1 to l do
        else
        for i := l-length(b)+1 to l do
        for J := 1 to 1 do
        StringGrid1.Cells[i-1,j-1] :=a;
5 ответов

SergeyTechno

Тебе вся ячейки Stringgrid независимо сколько в нем строк и столбцов нужно заполнить каждую ячейку только одним числом что в эдите?


SergeyTechno

Пишу по памяти, подправишь если че.. Допустим есть Эдит , Табла и БутонСобытие onChange на Эдите
StringGrid1.ColCount:=Length(Edit1.Text); //В зависимости от количество символов количество ячеек
StringGrid1.Cells[Length(Edit1.Text),0]:=Copy(Edit1.Text,Length(Edit1.Text),1); //При вводе числа сразу записываем его в ячейку.
Возможно надо поменять местами Length(Edit1.Text) и 1 в Copy! Напиши если работает!!! =) Интересно!


SergeyTechno

хмм
Тебе вся ячейки Stringgrid независимо сколько в нем строк и столбцов нужно заполнить каждую ячейку только одним числом что в эдите?
делаю умножение столбиком, с какой ячейки будут располагаться числа при вводе числа a в стринге я указал, надо чтобы при вводе числа 444 например, они раскидались по ячейкам 4 4 4
Пишу по памяти, подправишь если че.. Допустим есть Эдит , Табла и БутонСобытие onChange на Эдите StringGrid1.ColCount:=Length(Edit1.Text); //В зависимости от количество символов количество ячеек StringGrid1.Cells[Length(Edit1.Text),0]:=Copy(Edit1.Text,Length(Edit1.Text),1); //При вводе числа сразу записываем его в ячейку. Возможно надо поменять местами Length(Edit1.Text) и 1 в Copy! Напиши если работает!!! =) Интересно!
надо через масив =(


SergeyTechno

if a Оригинальная конструкция. Компилятор то её конечно пропустит, но работать она не будет так как задумывалось.


SergeyTechno

Оригинальная конструкция. Компилятор то её конечно пропустит, но работать она не будет так как задумывалось.
оу, этот момент надо пока закомментить