Q&A

  • 한 가지만 더..
비베의 다음 예를 델파이로 바꾼다면...



Dim i As String

Dim j As String



i = "211.56.206.14:80"

j = Right(i, Len(i) - InStr(1, i, ":"))



Len(i)에는 16이 들어가고 InStr(1, i, ":")는 14가 들어가 둘을 빼면 2 되고 Right함수이므로 답은 80만 남는데.. 이를 델파이로 하면 어떻게 될까요.

이 게시물을
1  COMMENTS
  • Profile
    강인규 • 2000.07.14 23:59
    전 초보라 더 좋은 알고리즘이 있을겁니다....^^



    var

    i,j : string;

    begin

    i := '211.56.206.14:80';

    j := copy(i,pos(':',i)+1,length(i)-pos(':',i));

    edit1.Text := j;

    end;





    김태영 wrote:

    > 비베의 다음 예를 델파이로 바꾼다면...

    >

    > Dim i As String

    > Dim j As String

    >

    > i = "211.56.206.14:80"

    > j = Right(i, Len(i) - InStr(1, i, ":"))

    >

    > Len(i)에는 16이 들어가고 InStr(1, i, ":")는 14가 들어가 둘을 빼면 2 되고 Right함수이므로 답은 80만 남는데.. 이를 델파이로 하면 어떻게 될까요.
←First Page
2363 2364 2365 2366 2367 2368 2369 2370 2371 2372
Last Page→
한델 로그인 하기