안녕하세요.
또 궁금한게 있어서 질문을 올립니다.
Edit1, Edit2, Edit3, Edit4, Edit5, Edit6
이 있다면.
Edit1에 출력되는 숫자 Edit2에 출력되는 숫자 ~ Edit6에 출력되는
숫자의 값을
나중에 RichEdit에 Edit1 + Edit2 + Edit3 + Edit4 + Edit 5 + Edit6의 값을
뿌려주려구 하는데요?
이방법은 어케해야할지 가물가물해서
델파이한지 며칠 안되어서요... 조언 부탁드립니다.
Edit1은 For문을 통하여 integer값으로 출력됩니다.
Edit2도 마찬가지고요
Edit3도 동일합니다. Edit4, Edit5, Edit6도 동일하게 출력되고요.
그래서 이 출력된 값을 RichEdit에 그 출력 결과 값을 00 00 00 00 00 00
이런식으로 뿌려줄려구 하는데 방법이 없을가요?
함수를 하나 간단히 만들어 쓰세여..
예를 들면 아래처럼..
function TForm.AddingAllEditValue : string;
var
Hap : integer;
i : integer;
begin
Hap := 0;
for i := 1 to 6 do
begin
with Self.FindComponent('TEdit' + IntToStr(i)) as TEdit do
begin
try
Hap := Hap + StrToInt(Text);
except
end;
end;
end;
result := IntToStr(Hap);
end;
//호출은
RichEdit.Lines.Add(AddingAllEditValue);
//하시면 되겠지여
원하시는 결과가 나오길 기원합니다.
그럼~ 항상 즐거운 프로그래밍 하시길~~