21-08-2011, 08:40 AM
وعليكم السلام ورحمة الله
كمثال باستخدام مكونين Memo واحد لاحتواء النص الاصلي والثاني لعرض النص بعد التعديل
مكون ListBox كوسيلة لقلب الكلمات وزر Button
نضع النص بمحتوى المكون Memo1 ونكتب بالزر شيئ مثل
حاول فهم الكود!
كمثال باستخدام مكونين Memo واحد لاحتواء النص الاصلي والثاني لعرض النص بعد التعديل
مكون ListBox كوسيلة لقلب الكلمات وزر Button
نضع النص بمحتوى المكون Memo1 ونكتب بالزر شيئ مثل
كود :
Var
i,j : integer;
s : String;
begin
Memo2.Clear;
for i:= Memo1.Lines.Count-1 downto 0 do begin
s := Memo1.Lines[i];
s := copy(s,1,length(s)-1);
ListBox1.Items.CommaText := s;
s := ListBox1.Items[0];
for j:= ListBox1.Items.Count-1 Downto 1 Do
s := s+' '+ListBox1.Items[j];
Memo2.Lines.Add(s+'.');
end;
end;