nogod

procedure InsertText(text:string); var i:integer; j:integer; ch:byte; str:string; begin i:=1; while i<=Length(text) do begin ch:=byte(text[i]); if Windows.IsDBCSLeadByte(ch) then begin Inc(i); str:=inttostr(MakeWord(byte(text[i]), ch)); keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 0), 0, 0); j:=1; while j<=Length(str) do begin keybd_event(96+strtoint(str[j]), MapVirtualKey..

https://www.youtube.com/watch?v=d1lmCdabZws

public function wherein(find:string,where:string) as string; var //find에 있는 ','로 구분된 복수의 문자열을 where에서 검색하여 일치하면 결과 리턴 R:Integer; temptstr: tstringlist; begin temptstr := tstringlist.Create; temptstr.Clear; ExtractStrings([','], [], PChar(find), temptstr); for R := 0 to temptstr.Count - 1 do begin if PosEx(temptstr.Strings..