Forum: Object-Pascal / Delphi-Language
Delphi
by Gehstock,
18. Jul 2007
Ok du hast recht die Funktion könnte im Programm öfters verwendung finden habs also wieder separiert
Forum: Object-Pascal / Delphi-Language
Delphi
by Gehstock,
18. Jul 2007
Bin grad nicht so Bibelfest aber glaub das ging so
Forum: Object-Pascal / Delphi-Language
Delphi
by Gehstock,
18. Jul 2007
Danke an alle hab den Code von marabu genommen
function ReadNumber:String;
var
i, iLength: Integer;
begin
Form1.Memo1.Lines.clear;
s:= 'AT+CPBS=ON';
Form1.SendCMD;
Form1.Memo1.Lines.clear;
Forum: Object-Pascal / Delphi-Language
Delphi
by Gehstock,
17. Jul 2007
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
Forum: Object-Pascal / Delphi-Language
Delphi
by Gehstock,
17. Jul 2007
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
Forum: Object-Pascal / Delphi-Language
Delphi
by Gehstock,
17. Jul 2007
l := ListView1.Items.Add;
l.Caption := 'Eigene Nummer';
l.SubItems.Add(ReadNumber);
Edit7.Text:=ReadNumber;
function ReadNumber:String;
begin
s:= 'AT+CPBS=ON';
Form1.SendCMD;
Memo1.Lines.clear;