我用2个参数做了一个具有相同数据类型的函数，我没有问题。 ，但我有不同的数据类型的麻烦 这里是我的代码： uses crt;
function inputscore(name : string, score:integer) : integer;
begin
writeln('My name is ',name,' and my score is ',score);
in
我有这段代码的错误。有人可以告诉我哪部分是错的吗？ 该程序应该继续，直到用户退出程序。例如：如果他们选择1，那么在选择执行后，他们应该再次被赋予菜单，直到他们选择退出程序。 program calculator;
var
a, b: integer;
c: real;
choice :integer;
begin
a:=5; b:=3;
我创建了一个组件，在我使用线程，这样的事情： type
TEvent = procedure(sender:TObject) of object;
TMyComponent = class(TComponent)
protected
Fvar:String;
FMyEvent:TEvent;
public
Constructo
我想知道是否有可能从字符串中去除特定的html标签。 我想剥去只有<img>开头的标签。但所有的<img ...>内容都必须删除。这是因为我需要从字符串中删除图像。 我已经tryed去适应这个程序： function StripHTML(S: string): string;
var
TagBegin, TagEnd, TagLength: integer;
begin
T