Чё-то через чур сложная и большая процедура открытия, ведь данные можно и в
StringGrid'e редактировать и сохранять в тех же файлах и тогда не возникнет проблема создавать кучу полей.
Код:
procedure TForm1.LoadFile;
var i,j,c: integer; t,z: string; S: TStringList;
begin
if OpenDialog1.Execute then begin
S:=TStringList.Create;
S.LoadFromFile(OpenDialog1.FileName);
For i:=2 to S.Count-1 do begin
t:=S.Strings[i]; c:=0;
For j:=0 to Length(t) do
if Ord(t[j])<>9 then z:=z+t[j] else begin
StringGrid1.Cells[c,i-2]:=z; c:=c+1; z:='';
end;
StringGrid1.RowCount:=StringGrid1.RowCount+1;
end;
end;
end;
Процедура загружает фаил в стринг грид. указать у стрингрида количество колнок 105, так как там 105 полей. Одно условие файлы должны быть именно такой структуры, чтобы таблица начиналась с 3 строки. Осталось только написать процедуру сохранения.