eine Textdatei (.txt) in Dephi auswerten

[Jens Hartmann]

Hallo Bernhard,

das ist mir klar, ich habe es ja oben auch in der Schleife realisert und als Beispiel zur Verfügung gestellt.

Delphi-Quellcode:

   i := 0; 
    while i < SMSList.Count do 
      begin 
        temp := SMSList[i]; 
        for iZeichen := 1 to 9 do 
          begin 
            SMSBool := false; 
            if pos (IntToStr(iZeichen), temp) = 11 then 
              SMSBool := true; 
            if SMSBool then 
              Break; 
          end; 
        if not SMSBool then 
          SMSList.Delete(i); 
        inc(i) 
      end; 
  MEMO1.Text := SMSList.Text;

Ich dachte nur man könnte das eventuell wie...

Delphi-Quellcode:

if pos(['0'..'9'],SMSList[i]) = 11 then 
  //oder 
  if pos(IntToStr([0..9]),SMSList[i]) = 11 then

lösen.

Schade eigendlich.

Gruß Jens

[Sir Rufo]

Zitat von Jens Hartmann:

Hallo Bernhard,

das ist mir klar, ich habe es ja oben auch in der Schleife realisert und als Beispiel zur Verfügung gestellt.

Delphi-Quellcode:

   i := 0; 
    while i < SMSList.Count do 
      begin 
        temp := SMSList[i]; 
        for iZeichen := 1 to 9 do 
          begin 
            SMSBool := false; 
            if pos (IntToStr(iZeichen), temp) = 11 then 
              SMSBool := true; 
            if SMSBool then 
              Break; 
          end; 
        if not SMSBool then 
          SMSList.Delete(i); 
        inc(i) 
      end; 
  MEMO1.Text := SMSList.Text;

Ich dachte nur man könnte das eventuell wie...

Delphi-Quellcode:

if pos(['0'..'9'],SMSList[i]) = 11 then 
  //oder 
  if pos(IntToStr([0..9]),SMSList[i]) = 11 then

lösen.

Schade eigendlich.

Gruß Jens

Gültig sind die Zahlen von 1 bis 10, du prüfst aber nur von 1 bis 9