Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**daywalker9**

Delphi-Quellcode:

			
for I := 1 to Length(Zeile) do

begin

  if (Zeile[I] in ['0'..'9']) do

     Result := Result + Zeile[i];

end;

Zeile Zeichen für Zeichen durchgehen und alles was numerisch ist sammeln

daywalker9 Registriert seit: 1. Jan 2010 Ort: Leer 594 Beiträge Delphi XE3 Professional	#2 AW: Stringfunktionen 10. Jan 2012, 20:46 markieren Delphi-Quellcode: for I := 1 to Length(Zeile) do begin if (Zeile[I] in ['0'..'9']) do Result := Result + Zeile[i]; end; Zeile Zeichen für Zeichen durchgehen und alles was numerisch ist sammeln Lars
	Zitat