Проблемы с загрузкой файла в Memo

[Damir]

Вроде не очень много, ну ладно, все равно в архив положу.
http://www.onlinedisk.ru/file/89214/

[Padre_Mortius]

Ваша проблема в том что вы описали массив v как

Код: Выделить всё

v : array[1..1,1..m] of real;

Но пытаетесь работать с ним

Код: Выделить всё

for i := 1 to 4 do
    for j := 1 to m do
      v[i,j] := -2 + 4*Random;

Добавлено спустя 36 секунд:
Приведите к одному виду и все будет работать

[Vadim]

У меня при нажатии на вторую кнопку оба файла загружается. А вот с первой кнопкой Вы намудрили. Разбирайте её.

[Padre_Mortius]

С первой кнопкой проблема либо в отсутствии внимательности, либо в спешке)

[Damir]

Vadim, Padre_Mortius, спасибо вам ОГРОМНОЕ Как всегда, самые упорные ошибки возникают из-за опечаток

[alexmai]

Добрый день!
Очень нужна помощь в решении следующей проблемы: мне необходимо загружать содержимое текстового файла (цифры) в Memo и оттуда загонять их в массив.
Заранее благодарен за любую помощь.

Я бы не использовал мемо, в разных десктопах по разному под него выделяется память, но я часто наступал на грабли когда
размер memo урезается молча и тупо до 64 к, и не поймешь какого хрена.
Поэтому использую вмеcто мемо - TSTRINGLIST

var TS:=TStringList.Create;
begin
try
TS.Clear;
TS.Add('строка 1');
TS.Add('строка 2');
....
//*****************
finally
...... что-то делаем со строками
for i:=0 to TS.Count - 1 do
begin
tQr.SQL.Text:=TS.Strings[i];
tQr.ExecSQL();
end;
end;
FreeAndNil(TS);

end;