Q&A

  • Edit에서 입력시 자릿수를 정하고 싶습니다. 방법을 알려주세요
TEdit 에서 8자리를 맞추려고 합니다.

예를 들면 [12345]입력 -> [00012345]로 바뀌도록

가능한지와 가능하면 가능한 방법을 알려주세요... 왕초보라서요..

응용하려는 부분은 아래와 같습니다.

          SQL.Add('Select cust_name from cust_master');
          SQL.Add('Where cust=:cust');
          ParamByName('cust').AsString:= Edit1.text;

감사합니다.
이 게시물을
2  COMMENTS
  • Profile
    석주현 • 2004.11.19 03:39
    아래와 같은 방법이 있겠네요.. ^^

    두가지 중에 편한걸로 하세요..  그럼이만
    ///////////////////////////////////////////////////////


    var
      tmpStr : String;
    begin
    //////////////////////////
    // 방법 1
    //////////////////////////
      tmpStr := '00000000';
      tmpStr := copy(tmpStr,0,8-Length(Edit1.Text)) + Edit1.Text;

    //////////////////////////
    // 방법 2
    //////////////////////////
      tmpStr := format('%8s',[Edit1.Text]);
      tmpStr := StringReplace(tmpStr,' ','0',[rfReplaceAll]);

    //////////////////////////
      Caption := tmpStr;
    end;
  • Profile
    사하라 • 2004.11.19 02:29
    TEdit 속성에서 MaxLength값을 8로 셋팅,  개발자가 원하는 값을
    입력하세요...

    var TempStr : String;
          i : Integer;
    begin
        .
        .
        TempStr := Trim(Edit1.text);
        for i := 1 to (Edit1.MaxLength - Length(Edit1.text))  do
           TempStr := '0'+TempStr ;

          SQL.Add('Select cust_name from cust_master');
          SQL.Add('Where cust=:cust');
          ParamByName('cust').AsString:= TempStr;
        .
        .
    end;
←First Page
368 369 370 371 372 373 374 375 376 377
Last Page→
한델 로그인 하기