ctrlcv wrote:

> 배열값을 초기화 하는 방법중 For 문 안돌고 초기화 할수 있는 방법이 없을까여?

> 예를 들어,

> var

> tmpstr : Array[1..100] of String;

> begin

> for i := 0 to 100 Do

> Begin

> tmpstr[i] := 'A';

> End;

> end;

>

> 요런 방법말고, 간단히 모든 배열값에 'A'를 Setting 할 수 있는 방법요....

>

FillChar(tmpstr, sizeof(tmpstr), #0);===>이런 식으로 해보십시요..



즐코~~

var

tmpints: PInteger;

begin

GetMem(tmpints, 100 * sizeof(Integer));

FillChar(tempints, 100 * sizeof(Integer));

// ...

FreeMem(tmpints);

end;



위 코드중 어디가 틀렸을 까요?

procedure FillChar(var X; Count: Integer; Value: Byte);

임돠. 즉,

FillChar(tempints^, 100 * sizeof(Integer));

라고 해야 함돠.

예전에 이것땜시 고생해서

걍 적어 봤습니다.

즐코하세요~~~





데빠이 wrote:

> ctrlcv wrote:

> > 배열값을 초기화 하는 방법중 For 문 안돌고 초기화 할수 있는 방법이 없을까여?

> > 예를 들어,

> > var

> > tmpstr : Array[1..100] of String;

> > begin

> > for i := 0 to 100 Do

> > Begin

> > tmpstr[i] := 'A';

> > End;

> > end;

> >

> > 요런 방법말고, 간단히 모든 배열값에 'A'를 Setting 할 수 있는 방법요....

> >

> FillChar(tmpstr, sizeof(tmpstr), #0);===>이런 식으로 해보십시요..

>

> 즐코~~

>