private
    { Private declarations }
    function egubn(s:string):string;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  pgrid1.cells[0,0] := '라인코드';
  pgrid1.cells[1,0] := '라인명';
  pgrid1.cells[2,0] := '품목코드';
  pgrid1.cells[3,0] := '품목명';
  pgrid1.cells[4,0] := '시작';
  pgrid1.cells[5,0] := '종료';
  pgrid1.cells[6,0] := '생산수량';
  pgrid1.cells[7,0] := '완료여부';
end;

procedure TForm1.Button1Click(Sender: TObject);
var j : integer;
begin
  j := 1;
  with query1 do
  begin
    open;
    if not isempty then
    repeat
      pgrid1.cells[0,j] := fieldbyname('mach_code').Asstring;
      pgrid1.Cells[1,j] := fieldbyname('supp_name').Asstring;
      pgrid1.Cells[2,j] := fieldbyname('part_code').Asstring;
      pgrid1.Cells[3,j] := fieldbyname('code_name').asstring;
      pgrid1.cells[4,j] := fieldbyname('start_date').AsString;
      pgrid1.cells[5,j] := fieldbyname('end_date').Asstring;
      pgrid1.Cells[6,j] := fieldbyname('unit_qty').AsString;
      pgrid1.Cells[7,j] := egubn(fieldbyname('end_gubn').Asstring);
      j := j+1 ;
    next;
    until eof;
    close;
  end;
  pgrid1.RowCount := j
end;

function T_form1F.egubn(var s:string):string ;     //76번째줄
  begin
    case s[1] of
    'Y' : egubn := '완료';
    'N' : egubn := '작업중';
      else
        egubn := '작업없음';
  end;
end.

----------------------------------------------------------------------------------------------
델파이를 처음접하는 코딩 쌩초보입니다.
부장님이 과제를 내주셨는데.. 이것이 잘 안되서리 -_-;
egubn값을 받아와서 이것이 Y면 완료 N면 작업중 그외는 작없없음
이렇게 GRID에 출력해야 하는데 function사용이 잘못되었는지 에러가 뜹니다 ㅠ
[Error] Unit1.pas(76): Function needs result type

물어볼 사람도 없고 혼자 해결해야해서 난감해요 ㅠ 빨리 해야되는데..
델마당에도 올렸는디 해결이 잘 안되서 급한맘에 여기에도 올려봅니다 ㅠ