markieren

Delphi-Quellcode:

l := ListView1.Items.Add;
  l.Caption := 'Eigene Nummer';
  l.SubItems.Add(ReadNumber);
  Edit7.Text:=ReadNumber;

zusammenfalten · markieren

Delphi-Quellcode:

function ReadNumber:String;
begin
  s:= 'AT+CPBS=ON';
  Form1.SendCMD;
  Memo1.Lines.clear;
  s:= 'AT+CPBR=1';
  SendCMD;
  Memo1.Lines.Add(sReadData);
  result:=memo1.Lines[1];
  delete(result,1,10);
  delete(result,12,16);
end;

das sich die ausgelesenen daten(telefonnummern) in der länge unterscheiden soll sichergestellt werden das nur Zahlen eingetragen werden

edit habs mal so versucht geht aber net

zusammenfalten · markieren

Delphi-Quellcode:

function ReadNumber:String;
var
z:Integer;
s:string;
begin
  s:= 'AT+CPBS=ON';
  SendCMD;
  Memo1.Lines.clear;
  s:= 'AT+CPBR=1';
  SendCMD;
  Memo1.Lines.Add(sReadData);
  result:=memo1.Lines[1];
  delete(result,1,10);
  while z = ['0'..'9'] do
  s:= s+result[z]
  result:=s;
  end;

und wo ist da jetzt eine frage? oder einfach nur mal so was posten?

um ehrlich zu sein: hab lange nicht mehr sowas wirres gelesen...

Hehe danke nee ich weiß ein paar stellen kann man besser machen

aber im result von funktion ReadNumber ist geplant das nur telefonnummern ala 0172344565563 drinstehen wenn sie kürzer sind sieht das result so aus 017254545&§ das soll vermieden werden

Dennoch wird mir Deine Frage irgendwie immer noch nicht klar.
Was Du da in Deinem Code machst ist nicht so ganz durchschaubar.

Was brauchst Du nun?

• Eine Funktion, die überprüft, ob ein String nur aus den Ziffern 0..9 besteht?
• eine Möglichkeit, zu verhindern, dass unerwünschte Zeichen in ein Editfeld eingegeben werden können?
• Oder womöglich was ganz anderes?

Versuch uns da doch bitte mal zu erhellen, denn im Gegensatz zu einigen anderen habe ich keine Glaskugel, die gerade in Reparatur sein könnte

Gruß

Thomas

[Edit]Dreckfuhler[/Edit]

Die Funktion ReadNumber soll nur Zahlen an den ListView übergeben
also am ehestens Auswahl 2. deines Postings nur das es ein String ist und kein TEdit.text

Willst Du nur alle Numerischen Anteile des Strings zurückbekommen, oder soll die Annahme des Strings einfach verweigert werden, wenn da was anderes als Ziffern drin gefunden wird?

Für den ersten Fall kannst DU sowas machen:

zusammenfalten · markieren

Delphi-Quellcode:

function CopyNumericOnly(s: string): string;
var
  i, l : integer;
begin
  Result := '';
  i := 1;
  l := Length (s) + 1;
  while i < l do
  begin
    if pos (s [i], '0123456789') > 0 then
    begin
      Result := Result + S [i];
    end;
    inc (i);
  end;
end;

Für den zweiten Fall sowas:

zusammenfalten · markieren

Delphi-Quellcode:

function IsNumeric(s: string): Boolean;
var
  i : integer;
begin
  Result := True;
  i := Length (s);
  while (Result and (i > 0)) do
  begin
    Result := (pos (copy (s, i, 1), '0123456789') > 0);
    dec (i);
  end;
end;

quick and dirty, sollte aber funktionieren

Hope it helps

Thomas

Na dann debug deine while-Schlife doch einfach mal und guck, was er macht, wenn keine Ziffer in z steht.

@onlinekater: Stringoperationen sind immer sehr langsam. Besser:

zusammenfalten · markieren

Delphi-Quellcode:

function ExtractNumbers(s: String): String;
var
  i: Integer;
begin
  for i := 1 to length(s) do
  begin
    if s[i] in ['0'..'9'] then
      result := Result + s[i];
  end;
end;

const
  FOOBAR = 'hgt546zu3426dh4536';

begin
  Writeln(ExtractNumbers(FOOBAR));
  Readln;
end.

Hallo Michael,

du solltest Result zuerst initialisieren.

Hier noch eine Alternative:

zusammenfalten · markieren

Delphi-Quellcode:

function ExtractDigits(s: string): string;
var
  i, iLength: Integer;
begin
  iLength := 0;
  for i := 1 to Length(s) do
  begin
    if s[i] in ['0'..'9'] then
    begin
      Inc(iLength);
      if iLength <> i then
        s[iLength] := s[i];
    end;
  end;
  Result := Copy(s, 1, iLength);
end;

Freundliche Grüße

Hi marabu,

hätte zu dem Thema auch noch eine kurze Frage: Gibt es einen Grund deinen Code dem von Luckie vorzuziehen? Ist das Konstrukt schneller oder hat es nur mehr Code ? Sorry für die Fragerei, aber hatte das bisher auch immer auf die Weise wie Luckie gemacht und will nicht unbedingt zuviel code haben

Der Code von Luckie hängt jede Ziffer an das Resultat an. Das kostet Zeit, zumal bei der Konkaterierung der alte String freigegeben und neuer Speicher angefordert wird.

Der Code von marabu führt nur eine Speicheralloziierung durch, nämlich am Ende. Falls der String nur aus Ziffern besteht, passiert (so gut wie) nichts in seinem Code.

Unterm Strich ist marabus Code dem von Luckie vorzuziehen.