Herausfinden ob erstes Zeichen Buchstabe oder Zahl ist

delfiphan · Beiträge: 2684 Erhaltene Danke: 32

rennkuckuck hat folgendes geschrieben:

hallo
delphifan ich habe es mal mit vorlage deines codes probiert.sieht so aus:

Delphi-Quelltext

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

const

 Zahl = ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9'];

var
 fw: TextFile;
 TS : String;
 I: Integer;
-------------------

    for I := 1 to Length(TS) do
       if (TS[I] in Zahl) then
          begin
          WriteLn(fw, TS);                 {  schreibe TS in die Datei }
          end;

läuft zwar schön durch aber das ergebnis ist nicht zufriedestellend.

Dein Code hat fast überhaupt keine Ähnlichkeit mit meinem Code

Am besten nimmst du einfach die Funktion isNumeric (siehe oben) wie sie ist.

markieren

Delphi-Quelltext

1:
2:

if IsNumeric(TS) then
 // TS besteht nur aus Ziffern

//Edit: IsNumeric: Siehe erste Seite des Threads.

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

delfiphan hat folgendes geschrieben:

Ausserdem fehlt die Klammerung nach dem not (und es hat auch noch einen Schreibfehler in der Variable).

Deshalb habe ich ja auch

Tino hat folgendes geschrieben:

(nicht getestet)

geschrieben. ;-)

rennkuckuck · Beiträge: 18 D5.0 Stand, D2005 Personal

Heiko wo steht schon mal was von isNumeric???
finde auch in der delphi hilfe nichts darüber...wäre natürlich klasse wenn es so ein funktion gäbe aber ich kann nichts darüber finden.

delfiphan · Beiträge: 2684 Erhaltene Danke: 32

www.delphi-forum.de/....php?p=261301#261301

markieren

Delphi-Quelltext

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

function IsNumeric(const AString: String): Boolean;  
var  
 I: Integer;  
begin  
  if Length(AString) = 0 then  
  begin  
    Result := False;  
    exit;  
  end;  
  for I := 1 to Length(AString) do  
   if not (AString[I] in ['0'..'9']) then  
   begin  
    Result := False;  
    exit;  
   end;  
  Result := True;  
end;

Evtl. zuerst noch ein Trim machen: IsNumeric(Trim(MyString))

Heiko · Beiträge: 3169 Erhaltene Danke: 11

rennkuckuck hat folgendes geschrieben:

Heiko wo steht schon mal was von isNumeric???
finde auch in der delphi hilfe nichts darüber...wäre natürlich klasse wenn es so ein funktion gäbe aber ich kann nichts darüber finden.

Warum fragst du gerade mich? Delfiphan hat IsNumeric herangetragen. Ich hatte die Variante mit TryStrToInt. Die Delphihilfe von D2k5 PE gibt zu IsNumeric folgendes aus (Ausschnitt):

markieren

Quelltext

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

IsNumeric returns True if the entire expression is recognized as a number; otherwise, it returns False. IsNumeric returns False if expression is a date expression.

The following example uses the IsNumeric function to determine whether a variable can be evaluated as a number: 

Dim MyVar, MyCheck
MyVar = 53   ' Assign a value.
MyCheck = IsNumeric(MyVar)   ' Returns True.
MyVar = "459.95"   ' Assign a value.
MyCheck = IsNumeric(MyVar)   ' Returns True.
MyVar = "45 Help"   ' Assign a value.
MyCheck = IsNumeric(MyVar)   ' Returns False.

rennkuckuck · Beiträge: 18 D5.0 Stand, D2005 Personal

sorry heiko habe mich irgentwie in den namen geirrt

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme