Delphi-Quellcode:
l := ListView1.Items.Add;
l.Caption := 'Eigene Nummer';
l.SubItems.Add(ReadNumber);
Edit7.Text:=ReadNumber;
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
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;