안녕하세요
Edit box에 숫자가 임의로 1,5,3,4,6,1,6,7,5,1,2가 있는데....
여기서 위에서부터 임의로 정한값(10)이 넘지않도록 끊고 싶은데 어떻게 하는게 좋을까요?
결과값은 Memo에
1,5,3,
4,6,
1,6
7,
5,1,2
이런식으로 결과값이 보이게 하고 싶습니다.
쉬운거 같은데 생각처럼 쉽게 안되네요
오늘 하루종일 이거땜시 머리만 아프네요..ㅜㅜ
그럼 좋은 답점 부탁드립니다...^^
var
str, istr : string
hap : integer;
begin
s := Edit.Text
hap := 0;
for i:= 0 to Length(Str) do
begin
if str[i] <> ',' then
istr := str[i];
hap := hap + IntToStr(istr);
if hap > 10 then
DoSomeThing..
else
DoSomeThing...
10을 넘을시 제외하고 아래로 스킵하시면 되겠네여..
예를 들면..
var
str, istr : string
hap : integer;
begin
s := Edit.Text
hap := 0;
for i:= 0 to Length(Str) do
begin
if str[i] <> ',' then
istr := str[i];
hap := hap + IntToStr(istr);
if hap > 10 then
DoSomeThing..
else
DoSomeThing...
end;
대충 이렇게 하시면 되겠네여..
마구 친거라 에러가 있을수 있으니 참고만하세여~
그럼 즐거운 프로그래밍 하시구여~