delphi и время (Timer)

[evg_m]

возник ещё вопрос как сделать так что бы в поле мемо когда место в строке для символов кончалось оно переносило последующий текст на следующую строку?

Wordwrap:=True;
можно задавать как в дизайнере форм (Objects Inspector) так и во время работы (в программе).

[arthur1]

Да верно, спасибо.
По ходу прочих действий возник ещё вопрос...
вот у меня в файле данные лежат таким вот образом.
11,5421=12,3512=15,6249
как мне их считать?

var im1,im2,im3: currency; asf: file of currency;
...
assignfile(asf,'name.txt')
reset(asf);
read(asf,im1 + '=' + im2 + '=' +im3); // Вот тут выдаёт ошибку
closefile(asf);
...
memo1.lines.add(im1 + ' ' + im2 + ' ' + im3);

как исправить эту ошибку?

[Serge_Bliznykov]

так нельзя!
судя по всему, файл у Вас текстовый?
тогда читаете строчку в строковую переменную,
потом её парсите (разбираете на отдельные элементы).
я ещё сразу могу предложить заменять запятую на переменную DecimalSeparator (такая есть в Delphi - равна системному десятичному разделителю, который может быть на разных операционках (локалях) быть настроен по разному!)

например, можно так:

var s : string;
   asf: TextFile;

....
  assignfile(asf,'name.txt')
  reset(asf);
  Readln(asf, s);
  s := Trim(s);
  im1 := 0;
  im2 := 0;
  im3 := 0;
  if Length(s)=0 then ShowMessage('Первая строка пуста и не содержит нужных значений')
  else begin
    s := StringReplace(s, ',' , DecimalSeparator, [rfIgnoreCase, rfReplaceAll])
    if Pos('=',s)>0 then begin
      im1 := StrToFloatDef(Copy(s,1,Pos('=',s)-1),0);
      Delete(s,1,Pos('=',s));
    end; 
    if Pos('=',s)>0 then begin
      im2 := StrToFloatDef(Copy(s,1,Pos('=',s)-1),0);
      Delete(s,1,Pos('=',s));
    end; 
    im3 := StrToFloatDef(s,0);
  end;

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