Q&A

  • 텍스트 파일에 쓰기 어케 쓴느거엥?
텍스트 파일에 쓸려고하는데요.. 이런식으로 나오는데요..

aa        bb        vvv        fffffff
heeh    etettt      44         rtewatre
we       e          eeee     etrwtr

이렇게 줄을 맞출라면 오케해요?

아래처럼하면요..

aa  bb  vvv  ffffff
hhhh  dddd  44   dgagqghq

머 이런식으로 나오거던요

sList := TStringList.Create;
    While Not Query1.EOF do begin
        sList.Add(Query1.FieldbyName('Address').AsString+' '+Query1.FieldByName('IDNo').AsString
             +' '+Query1.FieldByName('EngName').AsString+' '+Query1.FieldByName('korName').AsString);
        Query1.Next;
    end;
    sList.SaveToFile(Extractfilepath(paramStr(0))+'bbb.txt');
    sList.Free;  
이 게시물을
1  COMMENTS
  • Profile
    하얀까마귀 • 2003.01.23 05:27
    안녕하세요 하얀까마귀 입니다.

    에디트같은 걸로 밑의 파일을 얼었을때 그렇게 보인다는겁니까?

    아니면 스페이스를 넣어주는걸 말씀하시는건지...잘모르겠네요..

    우선 에디트같은곳에서의 문제는 폰트를 바꿔주시면 됩니다.

    굴림 <- 이걸로 하면 다르게 보일꺼구요.. 굴림체 <-- 이렇게 '체'가
    붙은걸로 하시면 바로 보이실 껍니다.

    물론 이렇게 할려면 해당 길이만큼 스페이스가 맞게 들어가있어야 합니다.

    밑에 루틴을 보니 스페이스를 넣는부분이 없군요...

    function AddSpace(aStr : String; aAddChar : char;  aLeng: Integer ) : String;
    var
      i : Integer;
    begin
      if Length(aStr) >= aLeng then
      begin
        Result := copy(aStr,1, aLeng);
      end else begin
        Result := aStr;
        for i := 1 to aLeng - Length(aStr) do
        begin
          Result := Result + aAddChar;
        end;
      end;
    end;

    대충 이런 함수하나 만드셔서 사용하셔야 할것 같네요..

    그럼..
←First Page
757 758 759 760 761 762 763 764 765 766
Last Page→
한델 로그인 하기