안녕하세요 .. 혼자 해볼려고 했는데 방법을 모르겠네요....



우선 어떤 창에서 글들을 파일로 저장합니다.저장 형식은

#14#20+시간+#20+받는이+#20+제목+#20+내용 입니다..근데 여기서 내용을 입력할 때는 메모컴포넌트로 입력 하니까 두줄 세줄 엔터키를 먹겠죠...



여기서 문제..

불러올때 라이단위로 오게 되는거 같은데 메모에서 쓸때는 분명히 엔터가 들어가서 그걸 구분할 수 가 없더군요...

내용들의 첨은 항상 #14가 들어가서 구분 할 수 있지만 그걸 하나로 합치는게 좀 어렵네여.배열을 쓸려구 했지만 글의 내용이 몇개가 될지도 모르니까요...

고수님들 도와 주세요...이거 오늘까진데...흑흑흑



procedure TfrmMain.TabSheet3Show(Sender: TObject);

var StrList: TStringList;

StrVar: string;

i : Integer;

begin

ListView3.Items.Clear;

StrList := TStringList.Create;



if FileExists('EPOLEMSG.TXT') then begin

StrList.LoadFromFile(ExtractFileDir(Application.ExeName) + 'EPOLEMSG.TXT');



for i := 0 to StrList.Count -1 do begin

StrVar := StrList.Strings[i]; // 2번째 줄을 읽는다.

if copy(StrVar,1,1) = #20 then begin



ListView3.Items.Add.Caption := IntToStr(i + 1);



ListView3.Items[i].SubItems.Add(제목이 들어가구 );

end;//end of if

end;//end of for

StrList.Free;

end;//end of if

end;