안녕하세요
아래 소스의 일부를 올렸는데 아래와 같은 애러가 나네요
[Error] Unit1.pas(539): Incompatible types: 'TAlignment' and 'String'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
Memo1.alignment := taRightJustify; 이렇게 하면 애러는 안나는데 밑에꺼랑 이거랑 무슨 차이가 있는지좀 가르켜 주세요
제가 볼때는 둘다 string인거 같은데...ㅜㅜ
그럼 수고하세요
procedure TForm1.F_Char;
var
ct : integer;
c_align : Array[0..2] of String = ('left','center','Right');
c_align2 : Array[0..2] of String = ('taLeftJustify','taCenter','taRightJustify');
begin
for ct := 0 to 2 do
begin
if Pos(c_align[ct],edit1.text) > 0 then
Memo1.alignment := c_align2[ct];
end;
end;
var
c_align : Array[0..2] of TAlignment = (taLeftJustify, taRightJustify, taCenter);
procedure TForm1.F_Char;
begin
Memo1.alignment := c_align[1];
end;
즐푸..