[Der_G()RuNu(h]

День добрый!
У меня вопросец такого рода: хочу сделать, чтобы StringGrid открывал текстовый файл, но как это сделать никак не соображу. Как сохранить таблицу в текстовый файл - не проблема, а вот как открыть текстовый файл в StringGrid даже не знаю что-то...

P.S.
в таблице 2 колонки: Дата и Событие.

[Страдалецъ]

Устроит?

Код:

 StringGrid1.Rows.LoadFromFile('c:\textfile.txt');

[Der_G()RuNu(h]

Сообщение от Страдалецъ

Устроит?

Код:

 StringGrid1.Rows.LoadFromFile('c:\textfile.txt');

что-то ошибка появляется...

[Ildar-tsr]

Сообщение от Der_G()RuNu(h

что-то ошибка появляется...

1. Какая ошибка?
2. Как производится сохранение таблицы в текстовый файл?

[Страдалецъ]

Да, это я как-то погорячился. Так не выйдет. Загрузится в лучшем случае текст в конкретную строку. Надо немного не так делать.

[Ildar-tsr]

Вот две процедуры, по сохранению в файл и загрузке из файла:
http://www.delphisources.ru/pages/fa...load_file.html

[Der_G()RuNu(h]

нет... стоп, уважаемые, у меня немного не такая система.
у меня в текстовый файл записывается ряд действий, но для того, чтобы эти действия лучше было просматривать, я сделал таблицу, в которую хочу загонять этот текстовый файл в 2 столбца (дата и событие). я написал один код, но выдает ошибку: "Invalid numeric input"

Вот код:

Код:

procedure THistoryForm.BtnOpenClick(Sender: TObject);
var
  f: TextFile;
  s: string;
  i,j: integer;
begin
  AssignFile(f,'D:\Pathfinder.txt');
  Reset(f);
  readLn(f, i,j);
  SG.RowCount:=i;
  SG.ColCount:=j;
  for i:=1 to SG.RowCount-1 do
    begin
      for j:=1 to SG.ColCount-1 do
        begin
          read(f,s);
          SG.Cells[j,i]:= s;
        end;
      readln(f);
    end;
  CloseFile(f);
end;

[Страдалецъ]

Почитайте внимательно для чего используется TextFile а для чего Read
Сейчас у вас окрошка.

[Der_G()RuNu(h]

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

Код:

procedure THistoryForm.BtnOpenClick(Sender: TObject);
var
  f: TextFile;
  s: string;
  i,j: integer;
  SL: TStringList;
begin
  //SG - TStringGrid
  SL:= TStringList.Create;
  SL.LoadFromFile('Pathfinder.txt');
  //SG.Rows:= SL.Count;
  //SG.Cols:= 2;
  for i:= 0 to SL.Count-1 Do
    begin
       SG.Cells[0,i]:= Copy(SL[i],1,Pos(',',SL[i])-1);
       SG.Cells[1,i]:= Copy(SL[i],Pos(',',SL[i])+1,Length(SL[i]));
    end;
  SL.Free;
end;

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

[Last Living Man]

думаю для двух столбцов TListView будет удобнее, и выглядит более привлекательно чем TStringGrid)

[Der_G()RuNu(h]

Сообщение от Last Living Man

думаю для двух столбцов TListView будет удобнее, и выглядит более привлекательно чем TStringGrid)

что-то никак не хочет:

Код:

procedure THistoryForm.BtnTodayClick(Sender: TObject);
var
  f: TextFile;
  s: string;
  i,j: integer;
  SL: TStringList;
begin
  SL:= TStringList.Create;
  SL.LoadFromFile('Pathfinder.txt');
  for i:= 0 to Sl.Count - 1 do
   begin
     //LI:= TListView.Items.Add;
     LI.Caption:= Sl.Strings[i];
   end;
  Sl.Free;
end;

эту строчку никак не соображу, в чем ошибка:
LI:= TListView.Items.Add;
LI - ListItem

[Last Living Man]

Сообщение от Der_G()RuNu(h

что-то никак не хочет

var
SL: TListItem;

[Der_G()RuNu(h]

Сообщение от Last Living Man

var
SL: TListItem;

как мне туда текст тогда загрузить то?

[Der_G()RuNu(h]

неужели ни у кого никаких мыслей по существу нет?

[Der_G()RuNu(h]

написал вот так:

Код:

procedure THistoryForm.BtnTodayClick(Sender: TObject);
var
  f: TextFile;
  strTemp: String;
  SL: TStringList;
  iTmp, i, k, l: Integer;
begin
  SL:= TStringList.Create;
    SL.LoadFromFile('Pathfinder.txt');
    with SG do
      begin
         for l:=1 to 10 do 
           for i := 0 to ColCount - 1 do
             for k := 0 to RowCount - 1 do
             begin
               strtemp:= SL.strings[l];
               Cells[i, k]:= strTemp;
             end; 
      end;
      SL.Free;  
end;

end.

но теперь у меня в обоих колонках таблицы только путь к файлу (txt), из которого грузится... в чем ошибка на этот раз?