procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
for i:=0 to Length(Edit1.Text) do
    Memo1.Lines.Add(Edit1.Text[i] + ' : ' + IntToStr(Ord(Edit1.Text[i])));
end;
위에서 처럼  IntToStr(Ord(edit1.text[i]))를 이용해서  에디트박스에 입력한 데이터를
10100021021 모 이런 숫자형태로 바꾸어서 넣었습니다..
근데 이 형태를 다시 원래 입력한 텍스트 형태로 변환해서 가지고 오려면 어떻게 해야 하나요?
제가 한 코딩입니다..
procedure TFrmLogin.userloginClick(Sender: TObject);
var
  sname1, spass1,sname2,spass2 : string;
  username, password,line : string;
  outfile : Textfile;   // 사용자이름과 패스가 저장될 텍스트 문서
  str : TStrings;
  value1, value2 : string;    //텍스트 파일에서 가져온 숫자값을 담을 변수

begin
   sname1 := edtusername.Text;
  spass1 := edtpassword.Text;

  str := TStringlist.Create;
  AssignFile(outfile, 'c:outfile.txt');
        Reset(outfile);
  while not Eof(outfile) do begin
     Readln(outfile,line);
     str.Add(line);
   end;
     showmessage(str[0]);
     showmessage(str[1]);
end;
위의   str[0]  과 str[1]을 원래 텍스트 형태로 바꾸려면 어떻게 해야 하나요...