طريقه نشان دادن فايل key در برنامه

[kaka64]

با عرض سلام
راستش يه سوال داشتم اگه كمك كنيد ممنون ميشم

سوالم اين بود كه با توجه به شكل زير بعد از فراخواني فايل key چگونه ميتونم فايل در قسمت پايين قرار بگيرد از چه دستوراتي بايد استفاده بشه و چه كامپونتي بايد استفاده بشه

http://i37.tinypic.com/flxelw.jpg



ممنون ميشم جواب كاملي بدين
با تشكر

[Touska]

خوب اینها یکسری فایل های text هستن که برنامه های که می بینید این patch های رو برای Reciever باز

می کنند ، دقیقا طبق فرمت آن Patch مثل Biss یا DCw آنها را خوانده و سپس به شما نمایش می دهند.

Technology خاصی نداره خوانده فایل با فرمت مشخص هست.

موفق باشید :)

[kaka64]

touskaعزيز ممنون از توضيحات خوبت .....
حالا اگه من بخوام يه همچون برنامه اي درست كنم چطوري بايد براي يه button كدبنويسم كه اون فايل textرو در string grit نشون داده بشه و بتونم تغيراتي توي ارقام بدم ..
ممنون از تو دوست خوب

[Touska]

برای مثال من خروجی یک دستگاه Central Phone رو گرفتم و آنرا خوندم :

و بصورت زیر آنرا خواندم :


procedure TForm1.suiButton2Click(Sender: TObject);
Var
I,J,N,Num : Integer;
Texts,Words : String;
begin
Num := 0;
ListBox1.Items.Clear;
For I := 0 To RichEdit1.Lines.Count - 1 Do
Begin
Texts := RichEdit1.Lines.Strings[i];
IF Length(Texts) > 2 Then
N := StrToIntDef(Texts[2],-1)
Else Continue;
Words := '';
Num := 0;
IF (Texts[2] <> ' ') And (Texts[2] <> '') And (N <> -1) Then
Begin
For J := 2 To Length(Texts) Do
Begin
IF (Texts[J] <> ' ') And (Texts[J] <> '') Then
Words := Words + Texts[J]
Else
Begin
IF (Words <> '') And (Words <> ' ') And (Words <> '<') And (Words <> '>') And (Words <> '*') Then
Begin
ListBox1.Items.Add(Trim(Words));
Inc(Num);
Case Num OF
1 : Date1 := Words;
2 : Time1 := Words;
3 : Ext := Words;
4 : Co := Words;
5 : Dial := Words;
6 : Du := Words;
End;
End;
Words := '';
End;
End;
ListBox1.Items.Add(Trim(Words));
Code := Words;
AddData;
End;
End;
MessageDlg('Your procces compeleted',mtInformation,[mbok],0);
Form1.Close;
end;


البته چیزی که اینجاست بر اساس صحیح خطا بدست آمده ولی Biss یا DCW فرمتش معلومه راحتره.