Rev 83 | Rev 85 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 83 | Rev 84 | ||
|---|---|---|---|
| Line 570... | Line 570... | ||
| 570 | procedure TUD2MainForm.Button5Click(Sender: TObject); |
570 | procedure TUD2MainForm.Button5Click(Sender: TObject); |
| 571 | var |
571 | var |
| 572 | idTerm: string; |
572 | idTerm: string; |
| 573 | slCmd: TStrings; |
573 | slCmd: TStrings; |
| 574 | begin |
574 | begin |
| - | 575 | // TODO xxx: Auch eine Möglichkeit geben, einfach nur "Testecho(abc)" einzugeben und es kommt was bei raus |
|
| - | 576 | ||
| 575 | if InputQuery('Enter example term', 'Example: abc|||Testecho:abc=calc.exe', idTerm) then |
577 | if InputQuery('Enter example term', 'Example: Testecho(abc):abc=calc.exe', idTerm) then |
| 576 | begin |
578 | begin |
| 577 | slCmd := TStringList.Create; |
579 | slCmd := TStringList.Create; |
| 578 | try |
580 | try |
| 579 | ud2.CheckTerm(idTerm, slCmd); |
581 | ud2.CheckTerm(idTerm, slCmd); |
| 580 | if slCmd.Count = 0 then |
582 | if slCmd.Count = 0 then |