Ну тоже легко. Это не меняет принципа.
только тогда проще вводить все в Memo сразу все строки, чем реализовывать такой метод ввода.
Вводим все в Memo. Потом вот таким кодом "добиваем" нулями:
Код:
var
I : Integer;
MaxLen : Integer;
begin
MaxLen := 0;
For I := 0 To Memo1.Lines.Count-1 Do
If Length(Memo1.Lines[i]) > MaxLen Then
MaxLen := Length(Memo1.Lines[i]);
For I := 0 to Memo1.Lines.Count-1 Do
While Length(Memo1.Lines[i]) < MaxLen Do
Memo1.Lines[i] := Memo1.Lines[i] + '0';
end;
конечно, это не оптимально, надо бы сначала строчку скопировать в буфер и работать там, но так понятнее.
Ну а матрицу (массив) уже там легко образмерить и заполнить. только помни, что индексы матрицы и Memo начинаются с 0, а номера символов в строке - с 1.