05-02-2010, 12:34 AM
[COLOR="RoyalBlue"]السلام عليكم و رحمة الله و بركاته
كنت اعمل علي برنامج "لاعادة ترتيب الحروف الغير مرتبة" من خلال قائمة "Wordlist".
مثال:
- لدي هذه الحروف "4ibADealprh", ما حاول عمله هو اعادة ترتيبها لتصبح "Delphi4Arab".
- المشكلة هي بطء البرنامج لتنفيذ هذه العملية.
هذا هو ال Source:[/COLOR]
يبدو ان المشكلة فى المبتدأ و الفكرة, هل من بدائل ؟
كنت اعمل علي برنامج "لاعادة ترتيب الحروف الغير مرتبة" من خلال قائمة "Wordlist".
مثال:
- لدي هذه الحروف "4ibADealprh", ما حاول عمله هو اعادة ترتيبها لتصبح "Delphi4Arab".
- المشكلة هي بطء البرنامج لتنفيذ هذه العملية.
هذا هو ال Source:[/COLOR]
كود :
Function CheckList(CheckWord : String):Boolean;
var F : TextFile;
Temp : String;
begin
Result := False;
AssignFile(F,'wordlist.txt');
Reset(F);
While Not Eof(F) do
begin
Readln(F,Temp);
If Temp = CheckWord then
begin
Result := True;
Break;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var FRand, MRand, RandedWord : String;
RandIndex : Integer;
begin
FRand := Edit1.Text;
While CheckList(RandedWord) = False do
begin
MRand := FRand;
RandedWord := '';
Repeat
Application.ProcessMessages;
[COLOR="Red"]Randomize;
RandIndex := RandomRange(1,Length(MRand));
RandedWord := RandedWord + MRand[RandIndex];
Delete(MRand,RandIndex,1);[/COLOR]
Until MRand = '';
end;
Edit2.Text := RandedWord;
end;
end.يبدو ان المشكلة فى المبتدأ و الفكرة, هل من بدائل ؟