Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.25;
Скачать: CL | DM;

Вниз

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

 
Хомячок ©   (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]

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


 
h0use ©   (2004-02-10 11:19) [5]

вместо 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;


 
Babay ©   (2004-02-10 11:41) [6]

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



Страницы: 1 вся ветка

Текущий архив: 2004.02.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.026 c
14-80185
syte_ser78
2004-01-31 09:47
2004.02.25
Создание браузера


7-80336
ed_30
2003-12-06 23:29
2004.02.25
Висит ли процесс?


1-79799
atmospheric
2004-02-11 15:38
2004.02.25
Как установить время ?


1-79700
VID
2004-02-12 00:17
2004.02.25
Какая разница между IE и TEmbeddedWB ?


1-79781
MadGhost
2004-02-04 21:52
2004.02.25
можно ли неактивное окно из панели задач открыть по таймеру?