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

[iwillgo2]

以下两个功能在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])

[Cooly]

dim a as string

a=string(10,"*")

msgbox a

[iwillgo2]

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

[馮強]

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

[pigpag]

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

[LowBird]

Option Explicit

Private Sub Command1_Click()

Dim str1 As String, str2 As Integer

str1 = InputBox("kdslajf")
str2 = InputBox("salkd;jf")
MsgBox Str(str1, str2)
End Sub

Public Function Str(ByRef Aa As String, Bb As Integer)

Dim I As Integer

For I = 0 To Bb - 1

Str = Str & Aa

Next I

End Function


在vb里这样就可以了，dp也不难办到吧

[LowBird]

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

[okwang1979]

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

[iwillgo2]

各位没有看清楚题目：

以下两个功能在Delphi中如何实现：Delphi