안녕하세요. 최용일입니다.



TOpenDialog를 사용할 때 FileName속성에 파일이 들어오잖아요...



ExtractFileDir이나 ExtractFilePath함수를 사용하면 되죠...



ExtractFileDir(OpenDialog1.FileName);

ExtractFilePath(OpenDialog1.FileName); // 이건 맨뒤에 가 붙습니다.



^^ 항상 즐코하세요.



호야 wrote:

> OpenDialog를 이용하는데 파일이있는 경로(C:mywork)를

> 알아보려고 하는데 안되네요.

> help파일에도 없던데 ...!

최용일 wrote:

> 안녕하세요. 최용일입니다.

>

> TOpenDialog를 사용할 때 FileName속성에 파일이 들어오잖아요...

>

> ExtractFileDir이나 ExtractFilePath함수를 사용하면 되죠...

>

> ExtractFileDir(OpenDialog1.FileName);

> ExtractFilePath(OpenDialog1.FileName); // 이건 맨뒤에 가 붙습니다.



아! 이 방법을 깜박했군요... 쩝....

역쉬 난 무식하고도 힘든 코딩을 하는군요... 헤헤..

감사 용일님...





>

> ^^ 항상 즐코하세요.

>

> 호야 wrote:

> > OpenDialog를 이용하는데 파일이있는 경로(C:mywork)를

> > 알아보려고 하는데 안되네요.

> > help파일에도 없던데 ...!

호야 wrote:

> OpenDialog를 이용하는데 파일이있는 경로(C:mywork)를

> 알아보려고 하는데 안되네요.

> help파일에도 없던데 ...!





그럼 pos함수를 이용해서 filename에 들어온값을 처리하는 방법은 어떨런지...



마지막""의 위치를 파악하면 되니깐....

그러니끼니 c:어쩌구저쩌구파일이름. 이렇게 있을때..

마지막 를 찾아서 copy시키면 되지 않을까요~!



물론 만든 소스는 드려야지요.. 쩝.



function LastPos(Substr: string; S: string): integer;

var

sTmp: String;

iLastPos: integer;

begin

sTmp := S;

iLastPos := Pos(Substr, sTmp);

if iLastPos > 0 then

begin

sTmp := Copy(sTmp, iLastPos + 1, 999);

while Pos(Substr, sTmp) > 0 do

begin

iLastPos := iLastPos + Pos(Substr, sTmp);

sTmp := Copy(sTmp, Pos(Substr, sTmp)+1, 999);

end;

end;

LastPos := iLastPos;

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

// 연습용 문자열

Edit1.Text := 'sdA5425A0A5';

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

ShowMessage('맨 첫번째 ''A'' 문자가 '+ IntToStr(Pos('A',Edit1.Text))+'번째에 있습니다');

ShowMessage('맨 마지막 ''A'' 문자가 '+ IntToStr(LastPos('A',Edit1.Text))+'번째에 있습니다');

end;





행복하셔요.. 규춘올림.