как загрузить текстовый фаил в StringGrid?

[aks]

Кто-нибудь знает как загрузить текстовый фаил в StringGrid?

From Stilet: Назвать нормально тему рука не поднимается? Мож в баню - попариться?

[[Smarik]]

все зависит от того как устроен текстовый файл, приведу пример своей курсовой
Структура файла:

3
4
40
40
40
50
50
50
50

1 число количество строк
2 число количство столбцов
следующие 3 числа строка
следующие 4 файла столбец
(у меня загружается только 0 строка и 0 столбец, центр таблицы пуст)

procedure Tenter.Open1Click(Sender: TObject);
var
  readf:textfile;
  st:string;
  i,j,l:integer;
begin
    if od.Execute then
    begin
        assignfile(readf,od.FileName);
        reset(readf);
        readln(readf,post);
        sg.RowCount:=post;
        readln(readf,potr);
        sg.ColCount:=potr;
        for i:=1 to post do
        begin
            readln(readf,st);
            sg.Cells[0,i]:=st;
        end;
        for j:=1 to potr do
        begin
            readln(readf,st);
            sg.Cells[j,0]:=st;
        end;
        closefile(readf);
    end;
end;

[Stilet]

Есть TStringGrid.Rows[].LoadFromFile если файл содержит соответствующую структуру конечно.

[[Smarik]]

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

[Stilet]

Этот метод аналогичен вот чему:

while not eof(f) do begin
 readln(f,s);
 StringGrid.cell[колонка,StringGrid.ColCount-1]:=s;
 StringGrid.ColCount:=StringGrid.ColCount+1
end;

Соответственно
TStringGrid.Cols[].LoadFromFile
Будет довавлять каждую строчку файла в новую строчку грида в указанную колонку.

Вот тебе еще в нагрузку пример читающий из файла все данные как полагатся:

var k,s:TStringList;i:integer;
begin
s:=TStringList.Create;k:=TStringList.Create;
k.LoadFromFile('file1.txt');
s.Delimiter:=' '; // Это разделитель между элементами
StringGrid1.Rows[i].Delimiter:=s.Delimiter;
StringGrid1.RowCount:=k.Count+1;
StringGrid1.ColCount:=1;
for i:=0 to k.Count-1 do begin
 s.DelimitedText:=k[i];
 if StringGrid1.ColCount<s.Count then
  StringGrid1.ColCount:=s.Count;
  StringGrid1.Rows[i].DelimitedText:=s.DelimitedText;
end;
s.free;k.Free;
end;

А вот файл к примеру:

1 2 3 4 5 6
q w e r t y u io o
s df g h j jk k klkjkljl kjk l kjl kjl

Разделитель ты можеш выбрать самю

[[Smarik]]

я так прнимаю если таблица 2 на 2 и открываешь файл где расчитано на таблицу 5 на 5 то таблица автоматом не увеличится?