[Argo]

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

[LSK]

Код:

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:

Код:

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'ом:

Код:

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]

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