摘要:POS 小技巧
看code 中前輩的寫法
筆記一下
這樣判 or時會變得比較精簡
procedure TForm1.Button1Click(Sender: TObject);
begin
//function Pos(Str, Source : string): integer;
if pos(edit2.Text , edit1.Text) > 0 then
showmessage('內有符合資料');
//可用來判斷多個站別精簡程式長度
// IF (edit2.text = a) or (edit2.text = b) or c,d,e,f.....then
// if pos(edit2.Text , 'a,b,c,d,e,f') > 0 then
end;
大家一起加入blogads 賺零用錢!!
