[lenuxoid]

Здравствуйте! Я пишу программу. Мне нужна ваша помощь! Файл прикреплен ниже. Мне нужно открыть тексовые файлы(myfile.txt, mytemp.txt), сделать поиск по дате, например за 16.11.2008 и построить 2 диаграммы (внизу). Одна по темрературе. Вторая по давлению, именно за 16 декабря!. Как это сделать пока не знаю. Может кто-нибудь сможет помочь с одним графиком!???

[Act]

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

[Act]

Код:

var s1 : TStringList;
  i,
  j : integer;
  d1 : string;
begin
  d1 := edit9.text + '.' + edit10.Text + '.' + edit11.Text;
   s1 := TStringList.Create;
   s1.LoadFromFile('mytemp.txt');
   j := 0;
   while Contain(s1[i], d1) do
   begin
    chart2.SeriesList[1].AddXY(j, StrToInt( Trim( copy ( s1[i], 10, length(s1[i]) - 10)  ) ),'',clblue);
    inc(i);
   end;
   s1.Free;

ну примрерно так, только я вот думаю мож я чет не понял что ты хочешь сделать, но судя по коду у тебя всё более менее получается а тут вроде и простое а не смог сделать


Процедура Contain будет проверять содержит ли строка дату.

[lenuxoid]

Спасибо большое.Я попробую! Я лишь любитель, который разбирается в Дельфи по исходникам, но и немного по help-ам.

[lenuxoid]

Процедуру Contain, где-нибудь надо еще описывать ( Undeclared identifier: 'Contain')?

[lenuxoid]

ее, наверно, надо описать глобально!?

[lenuxoid]

Сообщение от Act

Код:

var s1 : TStringList;
  i,
  j : integer;
  d1 : string;
begin
  d1 := edit9.text + '.' + edit10.Text + '.' + edit11.Text;
   s1 := TStringList.Create;
   s1.LoadFromFile('mytemp.txt');
   j := 0;
   while Contain(s1[i], d1) do
   begin
    chart2.SeriesList[1].AddXY(j, StrToInt( Trim( copy ( s1[i], 10, length(s1[i]) - 10)  ) ),'',clblue);
    inc(i);
   end;
   s1.Free;

ну примрерно так, только я вот думаю мож я чет не понял что ты хочешь сделать, но судя по коду у тебя всё более менее получается а тут вроде и простое а не смог сделать


Процедура Contain будет проверять содержит ли строка дату.

Помогите с описание процедуры Contain. Где она должна описываться!?

[lmikle]

Ну, подозреваю, что это поиск в строке подстроки (судя по параметрам и названию). Можно заменить на

Код:

POs(dl,sl[i]) > 0