이현철 께서 말씀하시기를...

> 안녕하세요.

> 메모의 내용을 스트링 배열에다 저장한후 나중에 다시 불러올려고 하는데요..

> 메모컴포넌트에서 여러줄의 문장을 친후.. 이걸 스트링 배열에다 저장할때..

> 메모에 줄은 있지만 문자는 안 친경우.. 예를들어서 그냥 엔터 엔터만 했을경우

> 빈줄이 있잖아요..

> 이 빈줄을 없애는 방법을 알고 싶어요.

> 꼭 답변해주세요.

> 그럼 수고하세요~



------------------------------------------------



안녕하세요. 그 문제는 아래와 같이 해결하면 좋을 것 같군요.



begin

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

if memo1.Lines[i] <> '' then

memo2.lines.add(memo1.lines[i]);

end;

end;



하지만 스페이스를 여러개 입력했을때는 소용이 없군요. 왜냐하면 스페이스도 하나의 문자로 인식하기 때문에 빈 줄이 아니라 스페이스 문자가 입력된 것으로 해석하니까요.



단순히 그냥 엔터키만 눌러 다음 줄로 이동하였다면 해결이 되는 군요.



위 예제에서 memo2.lines.add 만 해당하는 배열로 바꾸시면 될 것 같네요. 예를 들어서



begin

j := 0;

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

if memo1.Lines[i] <> '' then begin

aaa[j] := memo1.lines[i];

inc(j);

end;

end;

end;



그럼 수고하시구요. 안되면 멜 주세요.

네. 답변 감사합니다.

전 메모에 있는 내용을 스트링 배열에 저장하고. 그걸 DB에 저장했거든요.

나중에 DB의 내용을 프린트 하는거예요.



메모에서 스트링 배열로 값을 옮길때 값을 보니.. ('문자'#$D#$A'문자') 뭐..

이렇게 저장이 되는데요..

어떤거는 ('문자'#9#$D#$A'문자'#$D#$A'문자') 이렇게 나옵니다.

#$D#A 와 #9#$D#$A 가 틀린데.. 문자 뒤에 #9#$D#$A가 붙으면 그 라인 맨

마지막 문자 뒤에 о <- 요런 동그라미가 붙어서 나옵니다.

문자뒤에 #$D#$A가 붙으면 제대로 나오구요.



#9가 무슨뜻인지요? 메모에서 어떻게 입력했길래 #9가 붙어서 저장돼는지 모르겠네요. 그리고 #$D, #$A도 무슨뜻인지 혹시 아시면 답변 부탁드려요.

이현철 께서 말씀하시기를...

> 네. 답변 감사합니다.

> 전 메모에 있는 내용을 스트링 배열에 저장하고. 그걸 DB에 저장했거든요.

> 나중에 DB의 내용을 프린트 하는거예요.

>

> 메모에서 스트링 배열로 값을 옮길때 값을 보니.. ('문자'#$D#$A'문자') 뭐..

> 이렇게 저장이 되는데요..

> 어떤거는 ('문자'#9#$D#$A'문자'#$D#$A'문자') 이렇게 나옵니다.

> #$D#A 와 #9#$D#$A 가 틀린데.. 문자 뒤에 #9#$D#$A가 붙으면 그 라인 맨

> 마지막 문자 뒤에 о <- 요런 동그라미가 붙어서 나옵니다.

> 문자뒤에 #$D#$A가 붙으면 제대로 나오구요.

>

> #9가 무슨뜻인지요? 메모에서 어떻게 입력했길래 #9가 붙어서 저장돼는지 모르겠네요. 그리고 #$D, #$A도 무슨뜻인지 혹시 아시면 답변 부탁드려요.

>

>



안녕하세요. 음... 우선



#9는 Tab key의 역할을 하는 군요.... 메모에서 찍어보니 그렇게 나오는 군요.



그리고 #$D와 #$A는 정확하게 알 수는 없지만, Line Return의 역할을 하네요.

찍어보니까 그 다음줄로 이동이 되서.....



결론적으로, #9는 Tab을 누르면 입력되는 것 같고, 다른 문자들도 일반적으로 키보드에서 화면에 표시하는 문자가 아니라 특수키 같습니다. 예를 들면 insert, shift, alt, ctrl과 같은 키들이요...



정확한 해결책을 드리지 못해 죄송합니다.

이현철 께서 말씀하시기를...

> 네. 답변 감사합니다.

> 전 메모에 있는 내용을 스트링 배열에 저장하고. 그걸 DB에 저장했거든요.

> 나중에 DB의 내용을 프린트 하는거예요.

>

> 메모에서 스트링 배열로 값을 옮길때 값을 보니.. ('문자'#$D#$A'문자') 뭐..

> 이렇게 저장이 되는데요..

> 어떤거는 ('문자'#9#$D#$A'문자'#$D#$A'문자') 이렇게 나옵니다.

> #$D#A 와 #9#$D#$A 가 틀린데.. 문자 뒤에 #9#$D#$A가 붙으면 그 라인 맨

> 마지막 문자 뒤에 о <- 요런 동그라미가 붙어서 나옵니다.

> 문자뒤에 #$D#$A가 붙으면 제대로 나오구요.

>

> #9가 무슨뜻인지요? 메모에서 어떻게 입력했길래 #9가 붙어서 저장돼는지 모르겠네요. 그리고 #$D, #$A도 무슨뜻인지 혹시 아시면 답변 부탁드려요.

>

>

>



안녕하세요? 구창민입니다.

말씀하신 #9는 탭키입니다.

0D0A문자는 커서를 다음줄로 라인의 가장앞으로 보내는

제어문자입니다.



전부터 문답란에 간간히 보이는 질문이라 한번

간단히 작성해보았습니다.

개행문자를 삭제할 원본 파일명과 타켓파일명을 인자로

아래 함수를 호출하면, 개행문자가 삭제된 파일이

만들어 지는 함수입니다.

보시고, 참고 되시길 바랍니다.



procedure BlankLineDel(SrcFile:String; DestFile:String);

var

i: integer;

SF, DF: System.Text;

FLine: String;

isBlankLine: Boolean;

begin

Assign(SF, SrcFile);

Assign(DF, DestFile);

Reset(SF);

ReWrite(DF);

while not EOF(SF) do

begin

ReadLn(SF, FLine);

isBlankLine:= False;

for i:= 1 to Length(FLine) do

begin

if (FLine[i] <> #9) and (FLine[i] <> #10) and

(FLine[i] <> #13) and (FLine[i] <> #32) then

begin

isBlankLine:= True;

break;

end;

end;

if isBlankLine then Writeln(DF, FLine);

end;

System.Close(SF);

System.Close(DF);

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

BlankLineDel('d:tmpsrc.txt', 'd:tmpdest.txt');

end;