|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Открыть текстовый файл в таблице!
День добрый!
У меня вопросец такого рода: хочу сделать, чтобы StringGrid открывал текстовый файл, но как это сделать никак не соображу. Как сохранить таблицу в текстовый файл - не проблема, а вот как открыть текстовый файл в StringGrid даже не знаю что-то... P.S. в таблице 2 колонки: Дата и Событие. |
#2
|
||||
|
||||
Устроит?
Код:
StringGrid1.Rows.LoadFromFile('c:\textfile.txt'); Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
|||
|
|||
Цитата:
|
#4
|
||||
|
||||
Цитата:
1. Какая ошибка? 2. Как производится сохранение таблицы в текстовый файл? Google в помощь |
#5
|
||||
|
||||
Да, это я как-то погорячился. Так не выйдет. Загрузится в лучшем случае текст в конкретную строку. Надо немного не так делать.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#6
|
||||
|
||||
Вот две процедуры, по сохранению в файл и загрузке из файла:
http://www.delphisources.ru/pages/fa...load_file.html Google в помощь |
#7
|
|||
|
|||
нет... стоп, уважаемые, у меня немного не такая система.
у меня в текстовый файл записывается ряд действий, но для того, чтобы эти действия лучше было просматривать, я сделал таблицу, в которую хочу загонять этот текстовый файл в 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; |
#8
|
||||
|
||||
Почитайте внимательно для чего используется TextFile а для чего Read
Сейчас у вас окрошка. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#9
|
|||
|
|||
народ, что за фигня опять?
стал загружать текстовый 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; и получается так, что в верхнюю строку загружается дата и время, а в нижние события, причем только в правый столбец, а не в оба... в чем причина и как избавиться? |
#10
|
|||
|
|||
думаю для двух столбцов TListView будет удобнее, и выглядит более привлекательно чем TStringGrid)
|
#11
|
|||
|
|||
Цитата:
Код:
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 |
#12
|
|||
|
|||
Цитата:
SL: TListItem; |
#13
|
|||
|
|||
Цитата:
|
#14
|
|||
|
|||
неужели ни у кого никаких мыслей по существу нет?
|
#15
|
|||
|
|||
написал вот так:
Код:
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), из которого грузится... в чем ошибка на этот раз? |