기냥 쏘스를 보여드릴께요...
제가 요즘 Windows, Classes, ... 등등 뜯어보면서
요걸 우째 사용하나 고심하며 연구중인데요...
아무리 해도 안되요...
Windows 를 열어보니
DeviceToControl 맞나? 이런게 있던데...
파라미터값주는게 넘 어렵씀다 ㅠ.ㅠ
머리 쥐뜯어도 제 실력으로는 안되나 봄다...
아래것두 역쒸 아무거나 억지로 넣었죠...
컥!엑쎄쓰바이얼레이션 에러가 나더군요...
Cardinal,PChar 등등...값을 잘준거 같은데..이상하네...^^?
procedure TForm1.Button1Click(Sender: TObject);
var
ms1,ms2 : PChar;
bools : integer;
begin
bools:=CompareString(
0,0,StrPCopy(ms1,Edit1.Text),2,StrPCopy(ms2,Edit2.Text),2
);
if bools = 0 then
begin
ShowMessage('a');
end else
begin
ShowMessage('b');
end;
end;
저..하나더요..
WParam IParam 등..어떻게 로직을 구현해서 값을 주어야 할지
머리속으로 그려지질 않네요..
고수분들 답만 바루주실수도 있으시겠지만..
제가 이부분을 조금이나마 처리할수 있는 능력을
기르려면 어떤공부를 해야하는지좀 갈쳐주세용...
ps. 델파이 하믄할쑤록 빠지는거 같어요...골때리는 언어이긴하지만...^^
var
ms1,ms2 : array[0..79] of Char;
bools : integer;
begin
strpCopy(ms1,String(Edit1.Text));
strpCopy(ms2,String(Edit2.Text));
bools:=CompareString(0,0,
ms1,-1,ms2,-1 );
ShowMessage(inttostr(bools));
if bools = 2 then
begin
ShowMessage('같다');
end
else
begin
ShowMessage('틀리다.');
end;
end;