[Argo]

Помогите! Как ввести матрицу через Edit.Text или хотя бы через Memo

[LSK]

Код:

1 2 3 4 5

procedure TForm1.Button1Click(Sender: TObject); begin For i:=0 to Memo1.lines.count-1 do   Matrix[i]:= Memo1.lines[i]; end;

[Argo]

спасибо , конечно, но мне ввести надо матрицу( двумерный массив)

[The Shadow]

Можешь использовать какие-нибудь символы в качестве разделителей.

[The Shadow]

Вот пример с Memo:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

const   m = 9;   n = 9;   var ...   Matrix: Array [0..m] of Array [0..n] of String;   ...   procedure TForm1.Button1Click(Sender: TObject); const Separator = ';'; var i, j, p: Integer; s, buf: String; begin for i:=0 to m do begin s:=Memo1.Lines.Strings[i]; for j:=0 to n do begin if j < n then begin p:=Pos(Separator, s); buf:=Copy(s, 1, p - 1); Delete(s, 1, p); end else buf:=s; Matrix[i][j]:=buf; end; end; end;

[The Shadow]

А вот пример с Edit'ом:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

procedure TForm1.Button1Click(Sender: TObject); const Separator = ';'; MatrSeparator = '|'; var i, j, p: Integer; Str, s, buf: String; begin Str:=Edit1.Text; for i:=0 to m do begin if i < m then begin s:=Copy(Str, 1, Pos(MatrSeparator, Str) - 1); Delete(Str, 1, Pos(MatrSeparator, Str)); end else s:=Str; for j:=0 to n do begin if j < n then begin p:=Pos(Separator, s); buf:=Copy(s, 1, p - 1); Delete(s, 1, p); end else buf:=s; Matrix[i][j]:=buf; end; end; end;

[Argo]

Спасибо большое