안녕하세요, 아직 젖도 못 땐 초보하나예요.
좀 이해가가지않으시고 어리숙해보이는 질문이시더라도 양해 바래요.
(질문1.) 임시로 memo1.Lines 를 하나 만들어서 아래와 같은 값을 대입해 넣었어요.
<!--CodeS-->
20061111-00
20061112-00
20061111-01
20061114-00
.
.
.
.
<!--CodeE-->
위와 같은 배열값을 가지고 있는 memo1.Lines 를 배열로 변환해서 특정 줄에 같은 값(예. 20061114-00)이
존재하는지 여부를 체크하려고 하는데요.
어떤 방식으로 처리하여야 할지 실마리를 잡지 못하고 있어요. TT0TT*
(질문2.) 아직 초보이고 관련문서 및 질답검색 능력이 부족하다보니 여러가지 어려운 상황이 말이 아니예요.
function 과 procedure 에 대한 정확한 이해가 부족해요. 속 시원이 해결부탁드릴께요.
이벤트 만으로 프로그래밍을 처리하려니 너무 어려워요. 구조적으로 이해가 가질 않아서요.
어떻게 진행되는 구조인지 이해가;; 답변 부탁드릴께요...
다음 두가지 사례를 예로 들겠습니다.
<특정문자의 행번호를 찾는 경우>
아래와 같이 하시면 몇번째줄에 찾을문자열이 있는지 알수 있습니다.
<!--CodeS-->
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
i := Memo1.Lines.IndexOf(찾을문자열);
Label1.Caption := IntToStr(i);
end;
<!--CodeE-->
못찾으면 i는 -1을 반환하고 0은 Memo의 첫번째줄 입니다.
<특정 줄에 찾을 문자가 있는지 체크>
<!--CodeS-->
procedure TForm1.Button2Click(Sender: TObject);
begin
if Memo1.Lines[1] <> 'aaaaa' then
begin
ShowMessage('찾을 문자가 없습니다.');
end;
end;
<!--CodeE-->
함 해보세요.
Marek ...