Гляньте на код ,Делфи 7

[MegaMozg28]

Доброго дня всем

Вот столкнулся с такой проблемой, не могу понять что за код это, как его объяснить ,чей он .?

Можно ли его заменить, чтобы другой код тоже загружал в таблицу из файла отдельного?

procedure TForm1.FormCreate(Sender: TObject);
var a:integer;
begin


Memo1.Lines.LoadFromFile('cena.txt');
for a:=0 to 12 do begin
cena.Cells[1,a]:=memo1.Lines.Strings[a];
end;

cena.Cells[0,0]:='По сектору';
cena.Cells[0,1]:='от 1 до 2 | от 2 до 1';
cena.Cells[0,2]:='от 1 до 3 | от 3 до 1';
cena.Cells[0,3]:='от 1 до 4 | от 4 до 1';
cena.Cells[0,4]:='от 1 до 5 | от 5 до 1';
cena.Cells[0,5]:='от 2 до 3 | от 3 до 2';
cena.Cells[0,6]:='от 2 до 4 | от 4 до 2';
cena.Cells[0,7]:='от 2 до 5 | от 5 до 2';
cena.Cells[0,8]:='от 3 до 4 | от 4 до 3';
cena.Cells[0,9]:='от 3 до 5 | от 5 до 3';
cena.Cells[0,10]:='от 4 до 5 | от 5 до 4';
cena.Cells[0,11]:='отдельный заказ Газели';
cena.Cells[0,12]:='отдельный заказ Паз(а)';
end;

А загружает в таблицу : cena: TStringGrid точнее в (StringGrid)

[Grag]

Обычный стринггрид из двух колонок и 13 строк...
Вторая колонка заполняется построчно из мемо, первая - "зашитыми" в программе данными

З.Ы. Пост писал еще до редактирования ТС своего поста...

[MegaMozg28]

о о спасибо

[MegaMozg28]

вот как вы думайте , вот как сделать чтобы можно прописать ещё один путь к другому файлу, и при возможности переключать во время выполнение программы между этими файлами.????

[rdama]

Memo1.Lines.LoadFromFile(OpenDialog .FileName);