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