전 머리 아픈건 질색이라...

다음은 아무생각없이 온라인으로 치는 거..
aName[i] := '회원' + Edit1.Text;
For y := 1 To i Do
If aName[y] = aName[i] Then  arrow := y;

If aMoney[i] < 100000 Then aPoint[i] := 0
else If aMoney[i] <= 200000 Then aPoint[i] := 1
else aPoint[i] := 2;
aPoint2[i] := aPoint2[arrow] + aPoint[i];

점수 출력시
FloatToStr(aPoint2[i] + (Trunc(aPoint2[i] / 100) * 0.5))
이런식은 안될지..
음.. 사실 소스가 생각보다 너무 길군요.
시간있으면 한번 짜보고 픈데 지금 할일이 있어서..