Q&A
- 함수생성시 질문입니다...꼭 답변좀..급해서요.
아래와 같은 함수를 form1에 생성했다고 하면은
다른 form2,form3에서 저 함수를 불러다가 써야 합니다.
근데 스트링그리드가 form2,form3에 있습니다.
이럴경우 어떻게 사용할수 있을까요?
제 생각에는 저것을 사용하려면 stringgrid1이 부분이 form2.stringgrid1, form3.stringgrid1이렇게 바껴야 할것 같은데요...
바꾸는 방법을 모르겠습니다.
function string_wn;
var
F:textfile;
i,j:integer;
begin
AssignFile(F, 'c:btest.dat');
ReWrite(F);
try
for i := 1 to stringgrid1.RowCount - 1 do begin
for j := 1 to stringgrid1.ColCount - 1 do begin
Write(F,StringGrid1.Cells[j,i],',');
end;
Writeln(F,'');
end;
finally
CloseFile(F);
end;
end;
다른 form2,form3에서 저 함수를 불러다가 써야 합니다.
근데 스트링그리드가 form2,form3에 있습니다.
이럴경우 어떻게 사용할수 있을까요?
제 생각에는 저것을 사용하려면 stringgrid1이 부분이 form2.stringgrid1, form3.stringgrid1이렇게 바껴야 할것 같은데요...
바꾸는 방법을 모르겠습니다.
function string_wn;
var
F:textfile;
i,j:integer;
begin
AssignFile(F, 'c:btest.dat');
ReWrite(F);
try
for i := 1 to stringgrid1.RowCount - 1 do begin
for j := 1 to stringgrid1.ColCount - 1 do begin
Write(F,StringGrid1.Cells[j,i],',');
end;
Writeln(F,'');
end;
finally
CloseFile(F);
end;
end;
4
COMMENTS
-
-
우선 form2, form3의 implementation 밑에 호출하고자 하는 폼의 .pas화일을 추가 시켜 주셔야 됨돠...
form1의 .pas가 unit1라면...
implementation
uses Unit1;
글구 호출은....
Str : String;
begin
Str := Form1.String_Wn;
end;
이런식으루 함 된답니다...
참고 하세염~ ^^
델파이맨 wrote:
> 아래와 같은 함수를 form1에 생성했다고 하면은
> 다른 form2,form3에서 저 함수를 불러다가 써야 합니다.
> 근데 스트링그리드가 form2,form3에 있습니다.
> 이럴경우 어떻게 사용할수 있을까요?
>
> 제 생각에는 저것을 사용하려면 stringgrid1이 부분이 form2.stringgrid1, form3.stringgrid1이렇게 바껴야 할것 같은데요...
> 바꾸는 방법을 모르겠습니다.
> function string_wn;
> var
> F:textfile;
> i,j:integer;
> begin
> AssignFile(F, 'c:btest.dat');
> ReWrite(F);
> try
> for i := 1 to stringgrid1.RowCount - 1 do begin
> for j := 1 to stringgrid1.ColCount - 1 do begin
> Write(F,StringGrid1.Cells[j,i],',');
> end;
> Writeln(F,'');
> end;
> finally
> CloseFile(F);
> end;
> end;
>
-
자세한 답변좀 부탁드립니다.
님이 쓰신것은 함수사용방법같습니다.
제가 알고 싶은것은.음..그러니까.
아래 함수에서 for문에 보시면 stringgrid1이것이 있습니다.
form1에는 stringgrid가 없음니다.
그리드는 form2,form3에 있습니다.
form2를 처리를 한다면 for문에 stringgrid1이 form2.stringgrid1이렇게 바뀌어야 하고.
form3를 처리를 한다면 for문에 stringgrid1이 form3.stringgrid1로 바뀌어야 합니다.
사용방법을 아시면 꼭 알려주시면 감사하겠습니다.
방경주 wrote:
> 우선 form2, form3의 implementation 밑에 호출하고자 하는 폼의 .pas화일을 추가 시켜 주셔야 됨돠...
>
> form1의 .pas가 unit1라면...
>
> implementation
>
> uses Unit1;
>
> 글구 호출은....
>
> Str : String;
> begin
> Str := Form1.String_Wn;
> end;
>
> 이런식으루 함 된답니다...
>
> 참고 하세염~ ^^
>
> 델파이맨 wrote:
> > 아래와 같은 함수를 form1에 생성했다고 하면은
> > 다른 form2,form3에서 저 함수를 불러다가 써야 합니다.
> > 근데 스트링그리드가 form2,form3에 있습니다.
> > 이럴경우 어떻게 사용할수 있을까요?
> >
> > 제 생각에는 저것을 사용하려면 stringgrid1이 부분이 form2.stringgrid1, form3.stringgrid1이렇게 바껴야 할것 같은데요...
> > 바꾸는 방법을 모르겠습니다.
> > function string_wn;
> > var
> > F:textfile;
> > i,j:integer;
> > begin
> > AssignFile(F, 'c:btest.dat');
> > ReWrite(F);
> > try
> > for i := 1 to stringgrid1.RowCount - 1 do begin
> > for j := 1 to stringgrid1.ColCount - 1 do begin
> > Write(F,StringGrid1.Cells[j,i],',');
> > end;
> > Writeln(F,'');
> > end;
> > finally
> > CloseFile(F);
> > end;
> > end;
> >
-
제가 질문을 잘못 이해 했군여...^^;
function string_wn(SGgrid : TStringGrid);
var
F:textfile;
i,j:integer;
begin
AssignFile(F, 'c:btest.dat');
ReWrite(F);
try
for i := 1 to SGgrid .RowCount - 1 do begin
for j := 1 to SGgrid .ColCount - 1 do begin
Write(F,SGgrid.Cells[j,i],',');
end;
Writeln(F,'');
end;
finally
CloseFile(F);
end;
end;
이렇게 함수를 선언하구...
string_wn(Form2.StringGrid2);
이렇게 사용하는것....이 님께서 원하시는게 맞나여? ^^;
맞다면 좋겠네여...헤헤...구럼 오늘두 즐푸~
델파이맨 wrote:
> 자세한 답변좀 부탁드립니다.
> 님이 쓰신것은 함수사용방법같습니다.
> 제가 알고 싶은것은.음..그러니까.
> 아래 함수에서 for문에 보시면 stringgrid1이것이 있습니다.
> form1에는 stringgrid가 없음니다.
> 그리드는 form2,form3에 있습니다.
> form2를 처리를 한다면 for문에 stringgrid1이 form2.stringgrid1이렇게 바뀌어야 하고.
> form3를 처리를 한다면 for문에 stringgrid1이 form3.stringgrid1로 바뀌어야 합니다.
> 사용방법을 아시면 꼭 알려주시면 감사하겠습니다.
>
> 방경주 wrote:
> > 우선 form2, form3의 implementation 밑에 호출하고자 하는 폼의 .pas화일을 추가 시켜 주셔야 됨돠...
> >
> > form1의 .pas가 unit1라면...
> >
> > implementation
> >
> > uses Unit1;
> >
> > 글구 호출은....
> >
> > Str : String;
> > begin
> > Str := Form1.String_Wn;
> > end;
> >
> > 이런식으루 함 된답니다...
> >
> > 참고 하세염~ ^^
> >
> > 델파이맨 wrote:
> > > 아래와 같은 함수를 form1에 생성했다고 하면은
> > > 다른 form2,form3에서 저 함수를 불러다가 써야 합니다.
> > > 근데 스트링그리드가 form2,form3에 있습니다.
> > > 이럴경우 어떻게 사용할수 있을까요?
> > >
> > > 제 생각에는 저것을 사용하려면 stringgrid1이 부분이 form2.stringgrid1, form3.stringgrid1이렇게 바껴야 할것 같은데요...
> > > 바꾸는 방법을 모르겠습니다.
> > > function string_wn;
> > > var
> > > F:textfile;
> > > i,j:integer;
> > > begin
> > > AssignFile(F, 'c:btest.dat');
> > > ReWrite(F);
> > > try
> > > for i := 1 to stringgrid1.RowCount - 1 do begin
> > > for j := 1 to stringgrid1.ColCount - 1 do begin
> > > Write(F,StringGrid1.Cells[j,i],',');
> > > end;
> > > Writeln(F,'');
> > > end;
> > > finally
> > > CloseFile(F);
> > > end;
> > > end;
> > >
(NOTICE) You must be logged in to comment on this post.
-
- 초보 델코
- •
- 2000.12.19 23:29
- 1 COMMENTS
- /
- 0 LIKES
-
김동걸•2000.12.20 00:08스트링 리스트에만 저장할려면 LogMessage 를 쓰지말고.. 스트링 리스트 하나 생성하고 거기에 에러메시지...
-
- 초보초보
- •
- 2000.12.19 23:23
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.12.21 09:14서버소켓에서는 클라이언트소켓이 있는 곳으로 접속할 수 없습니다. TIdPeerThread는 클라이언트소켓에서 ...
-
- 기본맨
- •
- 2000.12.19 23:20
- 1 COMMENTS
- /
- 0 LIKES
-
최진석•2000.12.19 23:25str := formatdatetime('yyyymmdd',now()); 이렇게 하시면 스트링으로 str에 '20001221' 이런식으로 저장...
-
- 기본맨
- •
- 2000.12.19 23:07
- 2 COMMENTS
- /
- 0 LIKES
-
사발우성•2000.12.20 00:37save:= Tsavedialog.Create(self); save.DefaultExt := 'gume'; save.Filter := '*.gume|*.gume|모든파일...
-
최진석•2000.12.19 23:16인스펙트 오브젝트에 보년 FileName이란 곳이 있어요.. 이곳에 원하는 파일 이름을 넣으면 될듯 한데.. ...
-
- 깡초보
- •
- 2000.12.19 22:53
- 1 COMMENTS
- /
- 0 LIKES
-
광란자•2000.12.19 23:06기준일(TDateTime) 에서 -1을 하면 어제, +1 을 하면 내일이 됩니다 예를 들어 오늘이 기준일 이라면 어...
-
- 제발~~~~~~좀
- •
- 2000.12.19 22:27
- 1 COMMENTS
- /
- 0 LIKES
-
장동민•2000.12.20 06:36sql를 확인해보세요!
-
- 자라목
- •
- 2000.12.19 21:55
- 1 COMMENTS
- /
- 0 LIKES
-
최진석•2000.12.19 23:19저도 그부분을 쉽게 구현 해볼려고 했지만 간단한 방법을 못찾았습니다. 다만 list를 이용해서 해달 디렉...
-
- 김퍼바
- 2000.12.19 21:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 사발우성
- •
- 2000.12.19 21:47
- 2 COMMENTS
- /
- 0 LIKES
-
mafioso•2000.12.19 21:54요기보시면요 sql.Add('where num='''+num+''''); num 필드타입이 numeric(integer) 인것 같은데 따...
-
사발우성•2000.12.19 23:02mafioso님 답변 진심으로 감솨여..^^ 행복한 꾸리스마스 보내시길...^^
-
- 이동인
- 2000.12.19 21:41
- 0 COMMENTS
- /
- 0 LIKES
-
-
skpark•2000.12.20 00:28아주간단합니다 15 중간메뉴에다 Break를 mbBarBreak로 주세요 hobakpa wrote: > 최상의 메뉴에서 ...
-
hobakpa•2000.12.19 23:20제가 약간 그런데 신경을 많이 쓰는게 흠입니다. 답변 감사합니다...
-
-
- 박일용
- •
- 2000.12.19 21:14
- 1 COMMENTS
- /
- 0 LIKES
-
광란자•2000.12.19 22:11박일용 wrote: > 디자인 타임에 브레이크포인트를 설정해 놓고 > 실행을 시키면 설정해 놓은 브레이크포...
-
- 초보자
- 2000.12.19 21:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이맨
- •
- 2000.12.19 21:09
- 4 COMMENTS
- /
- 0 LIKES
아래와 같은 함수를 form1에 생성했다고 하면은 다른 form2,form3에서 저 함수를 불러다가 써야 합니다. 근데 스트링그리드가 form2,form3에 있습니다. 이럴경우 어떻게 사용할수 있을까요? 제 생각에는 저것을 사용하려면 stringgrid1이 ...-
soriso•2000.12.19 22:14델파이맨 wrote: > 아래와 같은 함수를 form1에 생성했다고 하면은 > 다른 form2,form3에서 저 함수를 ...
-
방경주•2000.12.19 21:25우선 form2, form3의 implementation 밑에 호출하고자 하는 폼의 .pas화일을 추가 시켜 주셔야 됨돠... ...
-
델파이맨•2000.12.19 21:34자세한 답변좀 부탁드립니다. 님이 쓰신것은 함수사용방법같습니다. 제가 알고 싶은것은.음..그러니까. ...
-
방경주•2000.12.19 22:32제가 질문을 잘못 이해 했군여...^^; function string_wn(SGgrid : TStringGrid); var F:textfile...
-
- 델파이맨
- •
- 2000.12.19 20:50
- 2 COMMENTS
- /
- 0 LIKES
-
김영석•2000.12.19 22:57Write 를 j 루프에서 쓰고 writeLn 을 i 루프에서 쓰면 됩니다. 아래처럼.. for i := 0 to Rec...
-
바람개비•2000.12.19 21:54
-
- 진현주
- •
- 2000.12.19 20:37
- 1 COMMENTS
- /
- 0 LIKES
-
김영석•2000.12.19 22:55BrushCopy 로 할때에 어느 이벤트에서 그렸는지 모르겠습니다. 그림이 변경될때 그 그림이 들어갈 스트링...
-
- 강태공
- •
- 2000.12.19 20:37
- 2 COMMENTS
- /
- 0 LIKES
-
agge•2000.12.20 05:49강태공 wrote: > Delphi 5.0으로 프로그램을 만들었고, > > Report는 Crystal Report 8.0을 사용했습니...
-
강태공•2000.12.20 19:47agge님 답변 감사합니다 test를 한결과 정상적으로 작동합니다. 혹시 다른분들이 필요할까 해서..... ...
-
- 전수완
- •
- 2000.12.19 20:19
- 1 COMMENTS
- /
- 0 LIKES
-
광란자•2000.12.19 20:30전수완 wrote: > DLL을 만들려구 합니다. DB를 연동하는 거요. > 일반적인 DLL을 만들겠는데. 어떻게 만...
-
- coolling
- 2000.12.19 20:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 땡삐!
- 2000.12.19 20:01
- 0 COMMENTS
- /
- 0 LIKES
> 아래와 같은 함수를 form1에 생성했다고 하면은
> 다른 form2,form3에서 저 함수를 불러다가 써야 합니다.
> 근데 스트링그리드가 form2,form3에 있습니다.
> 이럴경우 어떻게 사용할수 있을까요?
>
> 제 생각에는 저것을 사용하려면 stringgrid1이 부분이 form2.stringgrid1, form3.stringgrid1이렇게 바껴야 할것 같은데요...
> 바꾸는 방법을 모르겠습니다.
> function string_wn;
> var
> F:textfile;
> i,j:integer;
> begin
> AssignFile(F, 'c:btest.dat');
> ReWrite(F);
> try
> for i := 1 to stringgrid1.RowCount - 1 do begin
> for j := 1 to stringgrid1.ColCount - 1 do begin
> Write(F,StringGrid1.Cells[j,i],',');
> end;
> Writeln(F,'');
> end;
> finally
> CloseFile(F);
> end;
> end;
>
내가 보기에는 함수보다는 공통유닛에다가 프로시져로 만들어서 사용하면 될 것같네요.
먼저 stringgrid1 -> sgrid로 전부 바꿔야 합니다.
procedure string_wn(sgrid : TStringgrid);
var
F:textfile;
i,j:integer;
begin
AssignFile(F, 'c:btest.dat');
ReWrite(F);
try
for i := 1 to sgrid.RowCount - 1 do begin
for j := 1 to sgrid.ColCount - 1 do begin
Write(F,sgrid.Cells[j,i],',');
end;
Writeln(F,'');
end;
finally
CloseFile(F);
end;
end;
이렇게 만들고 나서 호출하는 폼이 form2이고 그리드 이름이 agrid라면 아래와 같이
사용하면 될 것 같아요.
string_wn(agrid);
암튼 해보시고 안되면 다시 질문해보시고, 즐푸하세요. *^^*