المشكلة هي كيف اجعل الاستقبال لايظهر memo 1

بدأه sky19 في 17 يناير 2014 · 6 رد · 990 مشاهدة · في لغة Delphi

#117 يناير 2014 في 20:31 صاحب الموضوع

استعملة خاصية البحث في الموقع لكن لم اجد حل لهده المشكلة
لقد قمت بانجاز برنامج بالدالفي للاتصال الهاتفي عن طريق منفد com
وقمت باستعمال المكون comport

procedure TForm2.BitBtn4Click(Sender: TObject); //ارسال
VAR
STR:STRING;
begin
COMPORT1.Open;

ComPort1.WriteSTR(STR);

TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); // استقبال
VAR
S:STRING;
begin
SetLength(S, Count);
ComPort1.Read( S[1] ,COUNT);
Memo1.Text:=.Memo1.Text+S;

فكانت النتيجة كما يلي

AT+CUSD=1,"*632*01*00000#",15
+CUSD: 0,"Votre credit est de: 3700.00 DA",15
OK
المشكلة هي كيف اجعل الاستقبال لايظهر تعليمة الارسال اي
مربع النص memo
يظهر تعليمة الاستقبال والارسال في نفس الوقت
تعليمة الارسال هي المخططة بالون الاحمر

تم تعديل هذه المشاركة بواسطة أحمد أبو عبد البر في 18 يناير 2014 في 17:47

#218 يناير 2014 في 00:57

هل تقصد انك لا تريد أن يظهر ما أطرته بالأحمر في memo ؟

مدونتي

إذا رأيتموني غبت فأطلت الغياب فربما أكون قد انتقلت عن الدنيا إلى الآخرة

فما أحوجني إلى دعوة صالحة من أخ لي كريم

http://www.tvquran.com/

LoGeCom

أول برنامج عربي للمحاسبة والتجارة وإدراة المخازن يعمل على اللينكس والماك والويندوز

#318 يناير 2014 في 14:20

أحمد أبو عبد البر كتب:
هل تقصد انك لا تريد أن يظهر ما أطرته بالأحمر في memo ؟

نعم اخي

#418 يناير 2014 في 17:55

اجعل فلترة للمتغير S قبل إضافته إلى memo

if pos('*631*01', S) = 0 then
     if (pos('CUSD:', S) > 0) then
     begin
     Delete(S,0,7)
     memo1.Append(S);
     end
  else
  memo1.Append(S);

تم تعديل هذه المشاركة بواسطة أحمد أبو عبد البر في 18 يناير 2014 في 20:12

مدونتي

إذا رأيتموني غبت فأطلت الغياب فربما أكون قد انتقلت عن الدنيا إلى الآخرة

فما أحوجني إلى دعوة صالحة من أخ لي كريم

http://www.tvquran.com/

LoGeCom

أول برنامج عربي للمحاسبة والتجارة وإدراة المخازن يعمل على اللينكس والماك والويندوز

#518 يناير 2014 في 22:56

أحمد أبو عبد البر كتب:
اجعل فلترة للمتغير S قبل إضافته إلى memo
if pos('*631*01', S) = 0 then
     if (pos('CUSD:', S) > 0) then
     begin
     Delete(S,0,7)
     memo1.Append(S);
     end
  else
  memo1.Append(S);

memo1.Append(S);

Missing operator or semicolon