일주일 초보 wrote:

>

> 소스를 참조하세요.저장을 하면 C:dataaaa.dat

>

> 2000#7#12#5#333##2000#7#12#5#30#########

> 2000#7#13#5###2000#7#12#5#30#########

> 2000#7#14#99###2000#7#12#5#30#########

>

> 이런식으로 나는데요...

> 그런데 제가 원하는 것은

>

> 2000#7#12#5#123##2000#7#12#5#30#########

> 2000#7#13#5###2000#7#12#5#30#########

> 2000#7#14#99###2000#7#12#5#30#########

>

> 2000#7#12#5#111##2000#7#12#5#30#########

> 2000#7#13#5###2000#7#12#5#30#########

> 2000#7#14#99###2000#7#12#5#30#########

>

> 2000#7#12#5#555##2000#7#12#5#30#########

> 2000#7#13#5#111##2000#7#12#5#30#########

> 2000#7#14#99#222##2000#7#12#5#30#########

>

> 이렇게 누적이 되었으면 합니다 어떻게 해야 할지...

> 버퍼를 써야 하는 것도 같구... 좋은 답변 부탁 드립니다.

>

>

>

>

> procedure TfrmMain.SpeedButton1Click(Sender: TObject);

> var

> I : Integer;

> F : TextFile;

> FileName, S ,T ,Todate ,gubun ,jiyek: String;

> begin

> FileName := InputBox('저장 파일명과 디렉토리를 넣어 주세요.', '디렉토리 + 파일명', 'C:dataaaa.dat');

> AssignFile(F, FileName);





> ReWrite(F); <== 이부분을 Append(F); 로하니까 되는 군요..









> ToDate := formatdatetime('yyyy#m#d#5#30##',date); //오늘 날짜 중간에 넣기

> gubun := StringGrid1.Cells[1,1];

> jiyek := StringGrid1.Cells[2,1];

>

> For I := 1 to 3 do //StringGrid1.RowCount-1 do

> begin

> S := StringGrid1.Cells[0,I] + gubun+'#' + jiyek +'#'+ ToDate

> +StringGrid1.Cells[3,I] +'##' + StringGrid1.Cells[6,I] +

> '#'+ StringGrid1.Cells[5,I]+'#' + StringGrid1.Cells[4,I] +

> '#'+ StringGrid1.Cells[7,I] +'#'+ StringGrid1.Cells[8,I] +'#' ;

> Writeln(F, S);

> end;

> CloseFile(F);

> end;

>

>

>

>