如何生成某一长度重复字符的字符串

Question

以下两个功能在Delphi中如何实现：1.String 函数示例
本示例使用 String 函数来生成一指定长度，且只含单一字符的字符串。Dim MyString
MyString = String(5, "*")   ' 返回 "*****"。
MyString = String(5, 42)   ' 返回 "*****"。
MyString = String(10, "ABC")   ' 返回 "AAAAAAAAAA"。2.InStr 函数
      返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。语法 InStr([start, ]string1, string2[, compare])

Answer 1

dim a as stringa=string(10,"*") msgbox a

Answer 2

To Cooly:以下两个功能在Delphi中如何实现.^0^ :)

Answer 3

记得Delphi是用Copy来复制字串，你查一下帮助吧。

Answer 4

还是用for和赋值语句？还简单

Answer 5

Option ExplicitPrivate Sub Command1_Click()Dim str1 As String, str2 As Integerstr1 = InputBox("kdslajf")
str2 = InputBox("salkd;jf")
MsgBox Str(str1, str2)
End SubPublic Function Str(ByRef Aa As String, Bb As Integer)Dim I As IntegerFor I = 0 To Bb - 1
   
   Str = Str & Aa
   
Next I
   
End Function
在vb里这样就可以了，dp也不难办到吧

Answer 6

在str函数中加一句
dim temp as integer
temp=left(bb,1)

Answer 7

又一个函数好像不行因为string()中第二个变量可以为Integer和 String两种类型

Answer 8

各位没有看清楚题目：以下两个功能在Delphi中如何实现：Delphi