السلام عليكم
1- حسب طبيعة الملف !
2- حسب طبيعة سؤالك :
بالتوفيق,,
1- حسب طبيعة الملف !
2- حسب طبيعة سؤالك :
كود :
Var
i: Byte;
begin
With OpenDialog,Mmo.Lines Do
Begin
{$I-}
Execute;
LoadFromFile(FileName);
{$I+}
If IoResult = 0 Then
For i:= 0 To Count - 1 Do
Strings[i]:= ConCat(IntToStr(i+1),'-',Strings[i]);
End;
//FreeMem !!!.
end;I'M Fly Like A G6