1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

procedure Tfrm_Main.prc_NLSuche;
var sqlstatement: String;
    anzahl: Integer;
    eingabe: String;
    ziffer: boolean;
begin
     anzahl := 0;
     eingabe := edtNLSuche.Text;

   //Test ob Eingabefeld leer, oder nicht, falls ja, Abbruch
     if length(eingabe) < 1 then
     begin
          MessageDlg('Es wurd nix angegeben',mtError,[mbOK],0);
          exit;
     end;

  //Test ob Eingabe mit Ziffer oder Buchstabe anfängt
  case eingabe[1] of
  '0'..'9':       ziffer := true;
  else            ziffer := false;
  end;

  if ziffer then
  begin
       for  lenght(eingabe) do
       begin

       end;

  //Setzten des SQL-Befehl entsprechen des oberen Test
     if ziffer then
     begin
      sqlstatement := 'SELECT * FROM NL ' +
                      'WHERE NLNR = ' + edtNLSuche.Text;
     end
     else
     begin
      sqlstatement := 'SELECT * FROM NL ' +
                      'WHERE NAME LIKE ''%' + edtNLSuche.Text + '%''';
     end;
......
[u][/u]					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

s := 'asdasdasdasd43wersfgg3456erfdsfsdf';

if (ord(s[1]) >= ord('0')) and (ord(s[1]) <= ord('9')) then
begin
  for i := 1 to length(s) do
    if (ord(s[i]) >= ord('0')) and (ord(s[i]) <= ord('9')) then
      t := t+s[i];
end else
if (upcase(ord(s[1])) >= ord('A')) and (upcase(ord(s[1])) <= ord('Z')) then
begin
  for i := 1 to length(s) do
    if (upcase(ord(s[i])) >= ord('A')) and (upcase(ord(s[i])) <= ord('Z')) then
      t := t+s[i];
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

if (ord(eingabe[1]) >= ord('0')) and (ord(eingabe[1]) <= ord('9')) then
        begin
             for i := 1 to length(eingabe) do
                 if (ord(eingabe[i]) >= ord('0')) and (ord(eingabe[i]) <= ord('9')) then
                    t := t+eingabe[i];
                 end else
        if (ord(Upcase(eingabe[1])) >= ord('A')) and (ord(Upcase(eingabe[1])) <= ord('Z')) then
        begin
             for i := 1 to length(eingabe) do
                 if (ord(Upcase(eingabe[i])) >= ord('A')) and (ord(Upcase(eingabe[i])) <= ord('Z')) then
                    t := t+eingabe[i];
        end;