Hello,
i can not find error, please help someone? When it tries to do apole[j]:= s[j] error occures. Procedure should divide text in each line of memo to chars in array. Thanks!
procedure TForm1.Button2Click(Sender: TObject);
type
pole = array of char;
var
i,j:integer;
apole:pole;
begin
memo2.lines.loadfromfile('1.txt');
for i:= 1 to (memo2.Lines.Count) do
begin
s:= memo2.lines;
for j := 1 to (Length(s)) do
begin
apole[j]:= s[j];
end;
end;
end;