Q&A

  • 문자열을 뒤집는 방법 혹시 아시나요?
안녕하세요...왜이리 머리가 안돌아가는지..

문자열을 뒤집는 소스 없습니까.

아님..문자열을 뒤에서 부터 검색하는 방법이라든지...

쩝...디렉토리Path에서 맨 마지막 ''를 뽑아낼려고 하는데

영 안되네요...

쩝...그럼 이만...

1  COMMENTS
  • Profile
    이진우 1999.09.22 22:53
    이주흥 wrote:

    > 안녕하세요...왜이리 머리가 안돌아가는지..

    > 문자열을 뒤집는 소스 없습니까.

    > 아님..문자열을 뒤에서 부터 검색하는 방법이라든지...

    > 쩝...디렉토리Path에서 맨 마지막 ''를 뽑아낼려고 하는데

    > 영 안되네요...

    > 쩝...그럼 이만...



    이주흥님 보세요....

    검색하고자 하는 문자열에 Length를 구한후 Loop를 돌려서 하나씩 찾으면 되지

    않을까요?



    sTemp := '검색할 문자열';



    procedure TForm1.Button1Click(Sender: TObject);

    var nLength, i : integer;

    begin

    nLength := Length(Edit1.Text);

    For i := nLength DownTo 1 Do Begin

    If Edit1.Text[i] = '' Then Begin

    // 처리 루틴

    End;

    End;



    그럼 즐거운 하루 되세요....