حذف یک خط از فایل متنی

[behzad_dr]

سلام .. من میخوام بعد از اینکه فایل متنی رو باز کردم یک خط از این فایل رو حذف کنم .. منظورم اینه که میخوام فرضا خط دوم فایل متنی رو حذف کنم .. از چه کدی میتونم استفاده کنم ؟!

[Felony]

var
Str:TStringList;
begin
Str:=TStringList.Create;
Str.LoadFromFile('D:\Test.txt');
Str.Delete(2);
Str.SaveToFile('D:\Test.txt');
Str.Free;
end;

[khoshblagh]

با تشکر از پاسختان
من این مشکل را به صورت دیگری دارم.
در برنامه هر ماه یک فایل متنی صورت حساب از بانک تجارت گرفته میشود. در این فایل متنی که تعداد سطرهای آن متفاوت(و بنابراین نمی توان خط مشخص از پیش تعیین شده ای را در نظر گرفت) میباشد. در آخرین خط یک علامت وجود دارد که باید قبل از انتقال فایل به برنامه حذف شود. حال با توجه به از پیش مشخص نبودن آخرین خط فایل مورد نظر چطور کد بالا را برای حذف آخرین خط فایل باید اصلاح نمود ؟
متشکرم

[Felony]

به وسیله ی متد Count میتونید تعداد خط ها رو بخونید و به راحتی خط مورد نظر رو حذف کنید یا ...


var
Str:TStringList;
begin
Str:=TStringList.Create;
Str.LoadFromFile('D:\Test.txt');
Str.Delete(Str.Count-1);
Str.SaveToFile('D:\Test.txt');
Str.Free;
end;