[Richik]

хелп

Сижу юзаю библиотеку Font32.., не как не могу понять почему не получается так:

procedure LoadRes(namefile: string);
var s, temp, ss: string;
    res: resource;
    i: integer;    
begin
  if loadfile=false then begin
    ClearForm;        
  
    s:='';
    res:=OpenResource(namefile+'.txt');        
    repeat
      temp:=ReadLine(res);      
      if temp='###' then break;                
      s:=s + StrToUtf8(temp) + chr(10);
    until false;        
    CloseResource(res);
    
//ShowCanvas
    TextWindow(0,0,getWidth, getHeight);
    i:=Format(s, 0);
    SetColor(255,255,255); 
    FillRect(0,0,getWidth, getHeight);    
    Align(i);
    DrawTextWindow;
    loadfile:=true;    
    showForm;
    addCom;
  end;

что я не так делаю?

{Приложение компилируется, библиотеку подключил, шрифт добавил (и dat-файл к нему), при загрузке тишина }


Один раз случайно в команду " i:=Format(s, 0);", место "s", написал "temp", на экране было написано "###" – конец ресурсного файла . т.е. вероятнее всего что обработка (применение шрифта) верная, наверное