Всем, кто знаком со стринггридом...(СГ)

← →
Хомячок © (2004-02-09 22:50) [0]

У нас на форме есть СГ.Проблема в следующем:Мне нужно провести некоторые операции со солбцоц №1.У нас есть некий файл, в котором записаны некие события,которые происходили от скажен времени 6:00:00 до 6:04:00,то есть 240 секунд.В моём СГ на каждую строчку по секунде.
Теперь вопрос:как сделать так чтобы вот эти 240с,как бы заполнили столбец сверху вниз.Чтобы допустим время(новое)преходило в новую строку.Например:
6:00:01
6:00:02
6:00:03
6:00:04
6:00:05
6:00:06
6:00:07 и так далее...как это сделать.Приведите пожалуйста код.

← →
jack128 © (2004-02-09 23:26) [1]

файл текстовый?

например
StringList.LoadFromFile("myfile.txt");
sg.rowcount := StringList.Count + 1; // Один ряд - заголовки
for i := 0 to StringList.Count - 1 do
sg.Cells[0, i + 1] := copy(StringList[i], 1, pos(" ", StringList[i])); // Предпологаю, что время отделено от текста событий пробелом

← →
Хомячок © (2004-02-10 08:36) [2]

Народ,ну помогите а?!

← →
Babay © (2004-02-10 10:27) [3]

Если я все верно понял из вопроса то можно так

uses DateUtils;

procedure TForm1.BitBtn1Click(Sender: TObject);
Var dt:TDateTime;
i:Integer;
begin
dt:=encodetime(6,0,1,0);// это для примера цифры
StringGrid1.RowCount:=241;// это тоже
For i:=1 to 240 do begin
StringGrid1.Cells[1,i]:=TimeToStr(dt);
dt:=incsecond(dt,1);
end;
end;

думаю принцип ясен

← →
Хомячок © (2004-02-10 11:14) [4]

Из последенего ответа уже что-то только надо чтобы время было не беспорядочным, а подряд шло по секундам...Спасибо прошу отвтить

вместо dt вставляй Now. Например:
procedure TForm1.BitBtn1Click(Sender: TObject); Var i:Integer; begin StringGrid1.RowCount:=241;// это тоже For i:=1 to 240 do begin StringGrid1.Cells[1,i]:=TimeToStr(Now); Sleep(1000); // будет записывать через каждую реальную секунду end; end;

ну если надо стороки раз в сек добовлять лучше таймер пользовать

Всем, кто знаком со стринггридом...(СГ) Найти похожие ветки