김준영 wrote:

> db에 있는 Table의 field값을 stringgrid에 뿌릴 때

> stringgrid의 cell에는 항상 '*****'식으로 나타나게 하려고

> 하는데 방법 좀 알려 주세요.

> byte수도 똑같게 말이죠

>

> ex>

> skpark -> ******

> 1234 -> ****

>

> 이렇게요

> 부탁합니다.



Field에 있는 이벤트 중에 GetText 이벤트를 사용해서 *로 바꿔버리지요..



StringGrid에 뿌릴때는 FieldName.DisplayText로 가져와서 뿌리시고요..



실제 디비에 값을 읽으실때는 FiekdName.AsString 이런 식으로 읽으면 해결될꺼 같은데..

최석기 wrote:

> 김준영 wrote:

> > db에 있는 Table의 field값을 stringgrid에 뿌릴 때

> > stringgrid의 cell에는 항상 '*****'식으로 나타나게 하려고

> > 하는데 방법 좀 알려 주세요.

> > byte수도 똑같게 말이죠

> >

> > ex>

> > skpark -> ******

> > 1234 -> ****

> >

> > 이렇게요

> > 부탁합니다.

>

> Field에 있는 이벤트 중에 GetText 이벤트를 사용해서 *로 바꿔버리지요..

>

> StringGrid에 뿌릴때는 FieldName.DisplayText로 가져와서 뿌리시고요..

>

> 실제 디비에 값을 읽으실때는 FiekdName.AsString 이런 식으로 읽으면 해결될꺼 같은데..



조금 더 구체적으로 설명해 주실 수 없습니까?

가능하시다면 소스를 보여주시면 더 좋구요

그럼..

님 힌트만으로 조금 하시기 힘들었나 보네요..



아래 소스 지금 제가 해보구 올리는 거거든요 이런 식으로 되는거 말씀하시나 보네요..



제가 주석을 않달았거든요..



함 살펴보시고 모르시면 다시 질문 주세요 ^^



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Grids, Db, DBTables;



type

TForm1 = class(TForm)

DataSource1: TDataSource;

Table1: TTable;

StringGrid1: TStringGrid;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

procedure TableGetText(Sender: TField; var Text: String;

DisplayText: Boolean);

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

var

i,j: integer;

begin

with Table1 do begin

DatabaseName := 'DBDEMOS';

TableName := 'animals.dbf';

Open;

StringGrid1.ColCount := 2*FieldCount;

StringGrid1.RowCount := RecordCount + 1;

for i := 0 to StringGrid1.ColCount - 1 do

if (i mod 2) = 0 then

StringGrid1.Cells[i,0] := Fields[i div 2].DisplayName

else begin

Fields[i div 2].OnGetText := TableGetText;

StringGrid1.Cells[i,0] := Fields[i div 2].DisplayName + ':실제값';

end;

j := 1;

while not EOF do begin

for i := 0 to StringGrid1.ColCount - 1 do begin

if not (Fields[i div 2].DataType in [ftString,ftSmallInt,ftInteger,ftFloat,ftCurrency]) then

Continue;

if (i mod 2) = 0 then

StringGrid1.Cells[i,j] := Fields[i div 2].DisplayText

else

StringGrid1.Cells[i,j] := Fields[i div 2].AsString;

end;

Inc(j);

next;

end;

end;

end;



procedure TForm1.TableGetText(Sender: TField; var Text: String;

DisplayText: Boolean);

var

i: integer;

begin

if Sender.AsString = '' then

exit;



for i:=0 to Length(Sender.AsString) - 1 do

Text := Text + '*';

end;



end.



김준영 wrote:

> 최석기 wrote:

> > 김준영 wrote:

> > > db에 있는 Table의 field값을 stringgrid에 뿌릴 때

> > > stringgrid의 cell에는 항상 '*****'식으로 나타나게 하려고

> > > 하는데 방법 좀 알려 주세요.

> > > byte수도 똑같게 말이죠

> > >

> > > ex>

> > > skpark -> ******

> > > 1234 -> ****

> > >

> > > 이렇게요

> > > 부탁합니다.

> >

> > Field에 있는 이벤트 중에 GetText 이벤트를 사용해서 *로 바꿔버리지요..

> >

> > StringGrid에 뿌릴때는 FieldName.DisplayText로 가져와서 뿌리시고요..

> >

> > 실제 디비에 값을 읽으실때는 FiekdName.AsString 이런 식으로 읽으면 해결될꺼 같은데..

>

> 조금 더 구체적으로 설명해 주실 수 없습니까?

> 가능하시다면 소스를 보여주시면 더 좋구요

> 그럼..