Q&A

  • 저 스트링 크리드 관계된 소스인대요 소스점 보고 자세히 설명좀 해주세요 넘 어려워서요
이 소스 설명점 부탁드립니다 전 참고로 델파이 공부한지 10일 된 초보 프로그래머인데요 제발 이 소스 자세한 설명좀 해주세요 그럼 부탁드립니다 스트링 그리드와 관련있는 소스입니다.





unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Grids;



type

TForm1 = class(TForm)

StringGrid1: TStringGrid;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.FormCreate(Sender: TObject);

Var

sung: array[1..2, 1..3] of integer;

S_name: array[0..4, 0..1] of String;

i, Total : integer;

My_Col, My_Row : integer;

begin

//행과 열의 수를 설정합니다.

StringGrid1.ColCount := 5;

StringGrid1.RowCount := 4;



S_name[0, 0] := '이름';

S_Name[1, 0] := '국어';

S_Name[2, 0] := '영어';

S_Name[3, 0] := '총점';

S_Name[4, 0] := '평균';

S_Name[0, 1] := '신문섭';

S_Name[1, 1] := '황용문';

S_name[2, 1] := '나성만';



sung[1, 1] :=70;

sung[2, 1] :=65;

sung[1, 2] :=78;

sung[2, 2] :=80;

sung[1, 3] :=90;

sung[2, 3] :=56;



//이름, 국어, 영어, 총점, 평균문자열을 출력합니다.

for i := 0 to 4 do

StringGrid1.cells[i, 0]:= S_name[i, 0];



For My_Row := 1 To 3 do

begin

Total :=0;

//이름을 출력합니다.

Stringgrid1.Cells[0, My_Row] := S_Name[My_Row-1,1];



For My_Col := 1 To 2 do

begin

//성적을 출력합니다.

StringGrid1.cells[My_col, My_Row] :=

IntToStr(sung[My_Col, My_Row]);

//점수를 누적합니다.

ToTal := Total + Sung[My_Col, My_Row];

end;

//총점을 출력합니다.

StringGrid1.Cells[my_Col, My_Row] := IntTostr(Total);

//평균을 출력합니다.

StringGrid1.cells[my_col+1,My_Row] := FloatToStr(Total /2);

end;

end;

end.





이 게시물을
1  COMMENTS
  • Profile
    최용일 • 2000.09.06 07:28
    허걱~ 소스에 주석이 다 달아져 있는데요... 이 이상 뭘 더 설명을 해달라는거죠?



    델파이 초급책을 보시구 공부를 하시는 것이 더 나을듯 하네요...



    red wrote:

    > 이 소스 설명점 부탁드립니다 전 참고로 델파이 공부한지 10일 된 초보 프로그래머인데요 제발 이 소스 자세한 설명좀 해주세요 그럼 부탁드립니다 스트링 그리드와 관련있는 소스입니다.

    >

    >

    > unit Unit1;

    >

    > interface

    >

    > uses

    > Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

    > Grids;

    >

    > type

    > TForm1 = class(TForm)

    > StringGrid1: TStringGrid;

    > procedure FormCreate(Sender: TObject);

    > private

    > { Private declarations }

    > public

    > { Public declarations }

    > end;

    >

    > var

    > Form1: TForm1;

    >

    > implementation

    >

    > {$R *.DFM}

    >

    > procedure TForm1.FormCreate(Sender: TObject);

    > Var

    > sung: array[1..2, 1..3] of integer;

    > S_name: array[0..4, 0..1] of String;

    > i, Total : integer;

    > My_Col, My_Row : integer;

    > begin

    > //행과 열의 수를 설정합니다.

    > StringGrid1.ColCount := 5;

    > StringGrid1.RowCount := 4;

    >

    > S_name[0, 0] := '이름';

    > S_Name[1, 0] := '국어';

    > S_Name[2, 0] := '영어';

    > S_Name[3, 0] := '총점';

    > S_Name[4, 0] := '평균';

    > S_Name[0, 1] := '신문섭';

    > S_Name[1, 1] := '황용문';

    > S_name[2, 1] := '나성만';

    >

    > sung[1, 1] :=70;

    > sung[2, 1] :=65;

    > sung[1, 2] :=78;

    > sung[2, 2] :=80;

    > sung[1, 3] :=90;

    > sung[2, 3] :=56;

    >

    > //이름, 국어, 영어, 총점, 평균문자열을 출력합니다.

    > for i := 0 to 4 do

    > StringGrid1.cells[i, 0]:= S_name[i, 0];

    >

    > For My_Row := 1 To 3 do

    > begin

    > Total :=0;

    > //이름을 출력합니다.

    > Stringgrid1.Cells[0, My_Row] := S_Name[My_Row-1,1];

    >

    > For My_Col := 1 To 2 do

    > begin

    > //성적을 출력합니다.

    > StringGrid1.cells[My_col, My_Row] :=

    > IntToStr(sung[My_Col, My_Row]);

    > //점수를 누적합니다.

    > ToTal := Total + Sung[My_Col, My_Row];

    > end;

    > //총점을 출력합니다.

    > StringGrid1.Cells[my_Col, My_Row] := IntTostr(Total);

    > //평균을 출력합니다.

    > StringGrid1.cells[my_col+1,My_Row] := FloatToStr(Total /2);

    > end;

    > end;

    > end.

    >

    >

←First Page
2261 2262 2263 2264 2265 2266 2267 2268 2269 2270
Last Page→
한델 로그인 하기