Это еще легкая задача!
пишешь функцию для одной строки, которая возвращает дату и темпиратуру.
копируем строку в переменную S
Dele(s,0,pos(' ',s))
Delete(s,0,pos(' ',s)) //после этих манипуляций получаем pos(' ',s)+4 это позиция последнего символа даты
Copy(OriginalStr,1,pos(' ',s)+4 )
потом опять
Delete(s,0,pos(' ',s)) ищешь второй пробел после даты
Delete(s,0,pos(' ',s)) * * * до второго числа после даты.
COPY(S,0,pos(' ',s)) получаешь второе число.
Написал грубо, без компилятора, главное идея =)
|