var

MyList : TStringList;

inData : string;

i,j : integer;

k,l : integer;

begin

MyList := TStringList.Create;

MyList.Clear;



inData := '11,12,13 ...... 98,99';

ExtractStrings([','], [' '], PChar(inData), MyList);

k := 1;

for i := 1 to 9 do begin

l := 1;

for j := 0 to MyList.Count-1 do begin

if IntToStr(i) = Copy(MyList.Strings[j],1,1) then begin

StringAlignGrid1.Cells[l,k] := MyList.Strings[j];

Inc(l);

end;

StringAlignGrid1.Cells[l,k] := IntToStr(l) + ' 개';

end;

Inc(k);

end;

FreeAndNil(MyList);





초보 wrote:

> 프로그램 짜다 넘 몰라서 이렇게 도움을 요청합니다.

> 예를 들어

>

> 11,12,13 ...... 98,99

>

> 이렇게 숫자들이 있습니다.. 이 숫자들 중 1로 시작하는 수,

> 2로 시작하는 수... 이렇게 각각의 숫자 갯수를 조회하려 합니다.

>

> 조회 결과는 대충 다음과 같이 나오겠죠.

>

> 1로 시작 9 개 ( 11,12 .....)

> 2로 시작 10 개 (21,22 ....)

> -

> -

> -

> 9로 시작 10 개

>

> 여기서 조회된 값만 스트링그리드에 넣으려 합니다.

> 어떻게 넣어야 할지....쩝~~~

> 설명이 잘 된건지 모르겠습니다.

> 부탁드립니다...

>