М | Теги ! |
Добрый вечер! Помогите пожалуйста.
Программа компилируется без ошибок, но не запускается.
Выдает ошибку 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.
Большое спасибо за помощь.
Сообщение отредактировано: klem4 -