لدي memeo بداخلها بيانات مثلا 123*name*add*tel اريد ان انسخ كل ما بين نجمتين داخل edit
مثلا edit1.text:=123
edit2.text:=name
وهاكذا الخ
وهذا محاولتي تحصلت علي نتيجيتين ولم استطيع الوصول الي الاخريات
var i,j: Integer; x,y:string; text1: WideString; begin text1:=Memo1.Text; j:= Length(Text1); for i := 1 to j do begin if Text1='*' then begin y:= Copy(text1,1,i); x:= Copy(Text1,i+1,j); Edit2.Text:=x; Edit1.Text:=y; end; end; end;
كود$this_var = "Hello World!";
function GetStrPart(const Str, Delimiter: String; const Index: cardinal = 1): String; var I,P1,P2 : integer; begin Result := ''; if (posex(Delimiter,Str[1]) = 1) and (Index <= 1) then exit; P1 := 1; for I := 1 to Index-1 do begin P1 := posex(Delimiter, Str, P1); if P1 = 0 then exit else P1 := P1 + length(Delimiter); end; P2 := posex(Delimiter, Str, P1); if P2 = 0 then P2 := length(Str) + 1; Result := copy(Str, P1, P2 - P1); end;
mithal wajadtouh
شكرا علي الرد
ولكنني لم افهم شياءا في الكود
جزاك علي الله كل خير
ارجو ارفاق مثال
حيث يكون المحتويات داخل الedit
هذا هو المطلوب
شكراً جزيلا
جزاك الله كل خير
الشكر لله وحده
هذا الموضوع مغلق.