Показать сообщение отдельно
  #33  
Старый 08.03.2010, 22:04
Аватар для W1ndow
W1ndow W1ndow вне форума
Новичок
 
Регистрация: 15.09.2009
Адрес: Березники
Сообщения: 61
Репутация: 16
По умолчанию

Чё-то через чур сложная и большая процедура открытия, ведь данные можно и в 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 строки. Осталось только написать процедуру сохранения.
Ответить с цитированием