Q&A

  • string을 Char형 배열로 형변환 하려면?
도와주세요. ㅜㅡ

몇일을 걸려 거의 이뤘는데...

한군데서 막혀서 어쩔 수가 없습니다.



문제의 핵심은 EditBox로 부터 입력받은 문자를 Char형 배열로 형변환을 할 수 없어서 말입니다.



EditBox는 String형이고 제가 표현하고 싶은 것은 array[1..30] of Char 입니다.



EditBox로부터 문자를 입력받아 이를 확장자가 map이라는 파일로 만들려고 하는데

적당한 표현법을 모르겠습니다.



형변환이 불가능하다면...



임의의 변수

var

txtBuffer: array[1..30] of Char;

에

FileWrite(FH, txtBuffer, Sizeof(txtBuffer))를 사용하여

사용자로부터 입력받은 문자를 파일로 옮길수 있는 방법은 없을까요?



여러 고수님들의 탁월한 조언을 부탁드립니다.

이 게시물을
2  COMMENTS
  • Profile
    타락천사 • 2000.11.26 02:26
    안녕하세여..타락임다..^^



    var

    szBuf : array [0..30] of char;

    begin

    szBuf := StrPLCopy(szBuf, EditBox.Text, 30);

    // TODO

    end;



    즐푸하세여..^^



    타락천사..



  • Profile
    로비 • 2000.11.25 13:33
    정확히 어떤 기능인지는 잘모르겠네요

    text 파일이 아닌가요?



    procedure TForm1.Button1Click(Sender: TObject);

    var

    F : TextFile;

    begin

    AssignFile(F, PATH+'test.map'); //파일이름 배정

    //디스크 작업을 위한 열기

    ReWrite( F);

    WriteLn( F, edit1.text);

    CloseFile( F);

    end;



    또는



    procedure TForm1.Button1Click(Sender: TObject);

    var

    F : file;

    begin

    AssignFile(F,'test.map');

    ReWrite(F,1);

    buf[0] := 'H';

    buf[1] := 'E';

    buf[2] := 'L';

    buf[3] := #13; //줄바꿈

    buf[4] := #10; //줄바꿈

    buf[5] := 'L';

    buf[6] := 'O';

    BlockWrite(F,Buf,100);

    CloseFile(F);

    end;
←First Page
2095 2096 2097 2098 2099 2100 2101 2102 2103 2104
Last Page→
한델 로그인 하기