Q&A

  • 팁게시판에 있는 소스인데요 활용을 못하겠어요
이 소스인데 컴파일 할려고 하면 에러가 나거든요 선언을 잘 못한거 같은데
초보라서 선언하는게 어렵네요 아직 이해도 잘 안가고  
선언 하는 방법좀 알려주세요

function LoadFile(const FileName: TFileName): string;
var
StringList: TStringList;
begin
StringList := TStringList.Create;
try
StringList.LoadFromFile(FileName);
Result := StringList.Text;
finally
StringList.Free;
end;
end;

procedure SaveFile(const FileName: TFileName; const S: String);
var
StringList: TStringList;
begin
StringList := TStringList.Create;
try
StringList.Text := S;
StringList.SaveToFile(FileName);
finally
StringList.Free;
end;
end;

3  COMMENTS
  • Profile
    김기수 2002.02.14 17:49
    달리 선언해야할 유닛도 없고.
    어떤종류의 에러가 어떻게 난다는 것인지요?
    증상을 자세하게 말씀하셔야 치료가 가능하지 않을까요?

  • Profile
    델파이 초보 2002.02.14 19:12
    휴..간신히 알아냈어요
    선언을 하면 에러가 나네요 ^^;;;;
    고정관념으로 선언 해줘야 한다 생각하고 선언을 해줬는데
    선언부분을 지워주니까 에러가 안나네요
    선언을 해주면 바로 이런 에러가 나옵니다
    Unsatisfied forward or external declaration: 'TForm1.LoadFile'
    여기서 왜 선언을 안해야 하는지 알려주시면 안될까요?
    제가 이해가 전혀 안가서요 꼭 이해해야 하는 부분같아요
    부탁드립니다



  • Profile
    이광수 2002.02.14 21:01
    TForm의 class안에 선언하신 것 같군요.

    class 선언부 밖에 선언하시길 바랍니다.

    혹은

    function TForm1.LoadFile(..)
    begin
    ..
    end;

    이렇게 함수 부분을 바꾸시던지요.