아래의 소스를 참고하세요..
소스는 Memo1의 문자열을 모두 소문자로 변환해서..
Memo2에 넣는 것입니다..
질문하신 내용을 설명하기 위해서..
배열을 써서 좀 바보스럽긴 하지만..
질문하신 내용에는 도움이 될 듯 합니다..


Voice of Delphi, 류..

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

Type
  TArrayResult = Array of String;

Function  GetArrayResult(Texts:TStrings):TArrayResult;
Var
  Loop : Integer;
Begin
  SetLength(Result, Texts.Count);
  For Loop:= 0 to Texts.Count-1 do
    Result[Loop]:= LowerCase(Texts.Strings[Loop]);
End;

procedure TForm1.Button1Click(Sender: TObject);
Var
  Loop : Integer;
  ArrayResult : TArrayResult;
begin
  ArrayResult:= GetArrayResult(Memo1.Lines);
  For Loop:= Low(ArrayResult) to High(ArrayResult) do
    Memo2.Lines.Add(ArrayResult[Loop]);
end;

end.


손동섭 님이 쓰신 글 :
:
: Function에서 Array of Record 타입을 리턴하고 싶은데요
:
: 어떻게 선언하면 될까요???
:
: 그리고 어떻게 Return이나 함수명에 대입할 수 있나요???
:
: 안되는 건가요???
:
:
: