Q&A
- 함수 리턴값(StrList 값을 받아서 배열에 넣어줘야 해요 ..)
var
Str: string;
StrList: TStringList;
Index: Integer;
begin
Str := '$123456$123457$123458';
StrList := TStringList.Create;
ExtractStrings(['$'], [#0], PAnsiChar(Str), StrList);
for Index := 0 to StrList.Count - 1 do
ShowMessage(StrList[Index]);
함수를 선언해서 토큰을 해서 값을 가져왔는데
다시 값을 리턴시키려니 StringList 타입때문데 다른변수에
값이 들어가질 않아요
다른 프로시져에서 이함수의 값을 받아와야 하는데
큰일이예요 ㅠ.ㅠ
아시는 분은 제발 답변 부탁드려요.. 급하답니다..
Str: string;
StrList: TStringList;
Index: Integer;
begin
Str := '$123456$123457$123458';
StrList := TStringList.Create;
ExtractStrings(['$'], [#0], PAnsiChar(Str), StrList);
for Index := 0 to StrList.Count - 1 do
ShowMessage(StrList[Index]);
함수를 선언해서 토큰을 해서 값을 가져왔는데
다시 값을 리턴시키려니 StringList 타입때문데 다른변수에
값이 들어가질 않아요
다른 프로시져에서 이함수의 값을 받아와야 하는데
큰일이예요 ㅠ.ㅠ
아시는 분은 제발 답변 부탁드려요.. 급하답니다..
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 김건림
- •
- 2003.12.23 21:07
- 2 COMMENTS
- /
- 0 LIKES
-
이중철•2003.12.23 21:43버튼과 스트링그리드의 Parent 속성을 바꾸면 됩니다. A 폼에 버튼1, 버튼2, 스트링그리드1 ... -
김건림•2003.12.24 23:20
-
- 김수현
- •
- 2003.12.23 20:24
- 1 COMMENTS
- /
- 0 LIKES
-
심인식•2003.12.23 22:01제가 알기로 발송 메일서버를 경유해서 메일을 보낼때는 받는사람유무체크를 실시간으로 할수 없는것으로 ...
-
-
- sky
- 2003.12.23 20:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 김지영
- •
- 2003.12.23 19:51
- 2 COMMENTS
- /
- 0 LIKES
-
^ㅡ^•2003.12.23 20:20도움이 될지 모르겠네요 var I,J :Integer; begin tmp := '123$2123$26...
-
김지영•2003.12.23 21:11감사 ^^ 행복하세요...(냉무)
-
- 박진수
- •
- 2003.12.23 19:41
- 2 COMMENTS
- /
- 0 LIKES
-
^ㅡ^•2003.12.23 20:27혹시 쿼리에 포멧값 지정 안 하셨나요? ##,#;0 이런거 그러면 갑이 안 나올수도있는데
-
박진수•2003.12.23 20:30display format을 말씀하시는거 같은데요.. 물론 지정했을때나 안했을때마 마찬가...
-
- 조우택
- •
- 2003.12.23 19:40
- 1 COMMENTS
- /
- 0 LIKES
-
심인식•2003.12.23 20:32음.. 제 생각에는 그문제를 해결하기 위해서는 Type Library에서 메소드를 만든 다음 웹에서 그 메소드를...
-
- 아폴론
- 2003.12.23 19:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 박창훈
- •
- 2003.12.23 07:50
- 2 COMMENTS
- /
- 0 LIKES
-
오병주•2003.12.23 17:58델파이의 에러는 아니구여...^^ Type선언에 문제가 있는듯 합니다. 8바이트인 BIGINT 컬럼으로 선언...
-
박창훈•2003.12.23 22:35답변 감사합니다.. bigint --> '-' 도 저장은 되던데... 델파이에서 못 가지고 올 뿐..... 그런데...
-
-
이중철•2003.12.23 05:08pchar은 char의 포인터 입니다. var pA : pchar; begin pA := DLLCALLFUNC; &nb...
-
-
- 김영애
- •
- 2003.12.23 02:58
- •
- 2 COMMENTS
- /
- 0 LIKES
-
오병주•2003.12.23 03:35Query 질의 하시다가 에러난듯 싶은데여.. 보니까 업데이트 하다가 난듯 싶은데.. 파라미터 값이 없...
-
김영애•2003.12.23 17:47..
-
- KDDG_hyun
- •
- 2003.12.23 02:53
- 2 COMMENTS
- /
- 0 LIKES
-
오병주•2003.12.23 03:09영수증 서식이 좀 바뀌지 않았나여..? [매출자료분] 국세청 파일은 D란에 업태/업종이 빠졌구여 ...
-
romantic•2003.12.26 22:41아직 에러 체크하는 프로그램 나오지 않은거 아닌가요?? 후후후..나오면 바로 돌려봐야 될텐데.. 거...
-
- Qinter
- •
- 2003.12.23 02:20
- 1 COMMENTS
- /
- 0 LIKES
-
오병주•2003.12.23 03:20팁란에 있는거 Copy 해 드립니다...^^ 프로그램 목록 구하기 type TForm1 = class(TForm) Butto...
-
- 색기발랄
- •
- 2003.12.23 02:03
- 2 COMMENTS
- /
- 0 LIKES
-
^ㅡ^•2003.12.23 20:29제가 생각하기에는 ms-sql이나 오라클이 나을꺼같은데요 로컬디비로는 좀 무리가 있지 않을까 ...
-
오병주•2003.12.23 02:59파라독스나 MDB 생성은 팁란에 보시면 금방 찾으실수 있을겁니다. 제가 올려놓은것도 있으니까여...^^ ...
-
- 윤혜정
- •
- 2003.12.23 01:05
- 1 COMMENTS
- /
- 0 LIKES
var Str: string; StrList: TStringList; Index: Integer; begin Str := '$123456$123457$123458'; StrList := TStringList.Create; ExtractStrings(['$'], [#0], PAnsiChar(Str), StrList); for Index := 0 to StrList.Count - 1 do Show...-
이중철•2003.12.23 01:17Function Sample : TStrings; var Str: string; StrL...
-
- 이기재
- •
- 2003.12.23 00:56
- 5 COMMENTS
- /
- 0 LIKES
-
이중철•2003.12.23 02:19
-
이중철•2003.12.23 04:42자꾸 테스트 해보면 조금씩 틀리고 이것도 완벽하게 동작은 안되요.. 그래도 근사(비슷)하게 되므로 일단 ...
-
이중철•2003.12.23 05:01이부문을 아래와 같이 바꾸세요. if m_currentrow ...
-
이기재•2003.12.23 18:45감사합니당 ^^ ㅎㅎ 근데 소스가 넘흐 어려워서 잘 모르겠네여 ㅠ _ㅠ 복사하기루 짜집기는 혀
-
이중철•2003.12.23 19:00디자인모드에서 미리 데이타를 집어넣고 했기에 이것이 먹혔거든요 FormCreate 부문에 이 부문을 강제로...
-
-
이중철•2003.12.23 01:10여기 자료실에도 어느정도 있고 Rx 또는 TMS 그리고 구할 수 있는 자료는 많이 있을꺼에요
-
-
- 이기재
- 2003.12.22 22:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 김지영
- 2003.12.22 21:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 엄문용
- •
- 2003.12.22 20:51
- 1 COMMENTS
- /
- 0 LIKES
-
엄문용•2003.12.22 21:02^^;
var
Str: string;
StrList: TStringList;
Index: Integer;
begin
Str := '$123456$123457$123458';
Result := TStringList.Create;
ExtractStrings(['$'], [#0], PAnsiChar(Str), StrList);
for Index := 0 to StrList.Count - 1 do
ShowMessage(StrList[Index]);
end;
var A : TStrings;
begin
A := Sample;
....배열에 넣는작업;
A.free;
end;
이런식 아닐까요 정확히 질문내용을 정확히 몰라서.. 지송