저는 비주얼 베이직을 구경만 해 봤습니다.

님께서 찾는 함수.. 있기도 하고 없으면 만들어 사용하면 됩니다.



순서대로...보시죠.



김태영 wrote:

> 비주얼 베이직과 델파이를 함께 사용하는 사람입니다. 그런데 같이 사용하다 보니 혼동이 많이 되는데요. 짜증이 나시더라도 이해주시고요.

> 다음과 같은 예를 델파로 어떻게 바꾸는지요.

> 1)

> Dim MyArray(1 To 10, 5 To 15, 10 To 20) ---> 배열 선언

> Upper = UBound(MyArray, 1) --->10

> Upper = UBound(MyArray, 3) --->20

>

> 즉 제가 묻고 싶은 것은 베이직에서 다차원 배열선언된 것에서 UBound함수를 사용하면

> 배열 중에서 마지막 배열값을 가져옵니다.



선언이 2차원배열(3 X ??) 쯤 되는 것 같네요.



lastValue := High(MyArray[1]); // -> 첫번째 배열의 마지막 값

lastValue := High(MyArray[3]); // -> 세번째 배열의 마지막 값



>

> 2)

> Dim MyString as String

> MyString = Space(10) ---> 10 공백을 가진 문자열을 반환합니다.

>

> Space함수는 지정한 수만큼 공백을 지정합니다.



여러가지 방법이 있을텐데.. 이런 함수를 정의해서 사용하는 방법도 있습니다.



function MakeString(fillLength: Integer; BaseStr: string = ' '): string;

var

i: Integer;

begin

result := '';

for i:=1 to fillLength do

result := result + insertStr;

end;



이렇게 정의해 놓고



MyString := MakeString(10);



하면 되겠네요.





> 3)

> Dim MyString

> MyString = String(5, "*") ---> "*****"을 반환합니다.

> String함수는 지정한 수만큼 변환하고자 하는 문자로 변환합니다.

>

>

> 델파이에서도 이와 유사한 함수가 있으리라 생각되는데요. 무엇인지 아시는 분은 도와주세요.

>



위에서 정의한 함수를 이용해서



MyString := MakeString(10, '*');



하면 되겠네요.



즐겁게 일하세요..



이준해