24-03-2009, 08:57 PM
الصفحات : 1 2
25-03-2009, 06:49 AM
السلام عليكم
يمكن فتح الملف في مكون TListbox بواسطة الإجراء LoadFromFile، وضبط خاصية Sorted على القيمة True.
يمكن فتح الملف في مكون TListbox بواسطة الإجراء LoadFromFile، وضبط خاصية Sorted على القيمة True.
25-03-2009, 08:14 AM
للتوضيح
عمل برنامج يقرأ الكلمات من ملف تكست ثم يرتب الكلمات ابجديا لتكتب في ملف تكست أخر ، إستخدام خاصيه الليست بوكس لا تساعدني في هذا العمل
عمل برنامج يقرأ الكلمات من ملف تكست ثم يرتب الكلمات ابجديا لتكتب في ملف تكست أخر ، إستخدام خاصيه الليست بوكس لا تساعدني في هذا العمل
25-03-2009, 05:04 PM
فقط أظف هده الدالة :
يمكنك التعديل على مكان الحفظ فقط أنا عملتها تعدل على الملف في حد ذاته :
كود :
Procedure LoadFileS(FilePath : String);
Var List:TStringList;
Begin
List:=TStringList.Create;
List.LoadFromFile(FilePath);
List.Sorted:=True;
List.SaveToFile(FilePath);
List.Free;
End;يمكنك التعديل على مكان الحفظ فقط أنا عملتها تعدل على الملف في حد ذاته :
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
LoadFileS('1.txt');
end;25-03-2009, 05:15 PM
لكن من الأحسن أن نقوم بالتحقق من نوع الملف (*.txt ليس بالضرورة تعني أنه نصي)
لذا نضيف دالة للتحقق من نوع الملف (ShellApi : Uses):
و عليه يمكنك الأن العمل بكل حرية مع تغييرات بسيطة على الكود.
لذا نضيف دالة للتحقق من نوع الملف (ShellApi : Uses):
كود :
Function MrsGetFileType(const strFilename: string): string;
var
FileInfo: TSHFileInfo;
begin
FillChar(FileInfo, SizeOf(FileInfo), #0);
SHGetFileInfo(PChar(strFilename), 0, FileInfo, SizeOf(FileInfo), SHGFI_TYPENAME);
Result := FileInfo.szTypeName;
end;كود :
ShowMessage('File type is: ' + MrsGetFileType('1.txt'));و عليه يمكنك الأن العمل بكل حرية مع تغييرات بسيطة على الكود.
26-03-2009, 01:07 AM
او ... ?
PHP كود :
procedure Sor_Str(TSL: TStringList; S: string);
begin
TSL.LoadFromFile(S);
TSL.Sorted := True;
TSL.SaveToFile(S);
end;
PHP كود :
Sor_Str(TStringList.Create,'c:\a.txt');
26-03-2009, 01:27 AM
لكن أليس من الأحسن بما أنك أنشأء صنف تحريره ؟؟.
الهدف من الامر الإعتماد مباشرة من الصنف دون إستعمال المركبات.
بالتوفيق ,,
الهدف من الامر الإعتماد مباشرة من الصنف دون إستعمال المركبات.
بالتوفيق ,,
26-03-2009, 01:44 AM
كيف احرره ?
26-03-2009, 02:50 PM
شكرا على تجابكم
يس للأسف البرنامج بيوقف عند (TSL.Sorted := True;
) وماأعرف ليش
جزاكم الله خيرا
يس للأسف البرنامج بيوقف عند (TSL.Sorted := True;
) وماأعرف ليش
جزاكم الله خيرا
26-03-2009, 03:08 PM
السلام علكم
بالتوفيق ,,
كود :
procedure TForm1.Button1Click(Sender: TObject);
Var DataList : TStringList;
SFilePath : String;
begin
If Not PromptForFileName(SFilePath,'Text files (*.txt)|*.txt','','Select your project file','',False) Then Exit;
Try
DataList:=TStringList.Create;
DataList.LoadFromFile(SFilePath);
DataList.Sort;
DataList.SaveToFile(SFilePath);
Finally
DataList.Free;
End;بالتوفيق ,,
الصفحات : 1 2