Версия для печати темы

Автор: credo2003 18.09.2007 2:01

М

Теги !

Добрый вечер! Помогите пожалуйста.
Программа компилируется без ошибок, но не запускается.
Выдает ошибку Cannot run a unit

Unit ExtGraph;
Interface
Function ReadString: String;
Implementation
Uses
CRT, Graph;
Function ReadString: String;
Var
S: String;
Ch: Char;
StartX, StartY: Integer;
begin
S:= '';
StartX:=GetX;
StartY:= GetY;
Repeat
Ch:=ReadKey;
Case Ch Of
#0: begin
 Ch:=ReadKey;
 end;
 #13: ;
 #8: If Length(S)>0
     Then
      begin
      Bar(StartX, StartY, StartX+TextWidth(S),
      StartY+TextHeight(S));
      S[0]:=Chr(Length(S)-1);
      OutTextXY(StartX, StartY, S);
      end;
      else
       begin
       S:=S+Ch;
       OutTextXY(StartX, StartY, S);
       end;
       end;
  Until Ch=#13;
  ReadString:=S;
  end;
  end.

Большое спасибо за помощь.

Автор: volvo 18.09.2007 2:04

Модуль нельзя запустить, его надо присоединить к программе через Uses, и запускать именно программу...