cs_ManChesTer
Messages postés374Date d'inscriptionvendredi 20 octobre 2000StatutModérateurDernière intervention15 janvier 2021 2 juil. 2003 à 22:01
Function VireLigne(S,FileName:String):Boolean;
Var f : Tstrings;
j : Longint;
begin
Result:=False;
F:=Tstringlist.Create;
F.LoadFromFile(FileName);
for j:=1 to F.count-1 do
If f[j]=S then
begin
F.Delete(j);
Result:=True;
Break;
end;
F.SaveToFile(FileName);
F.free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if VireLigne('testligne2','C:\Test.Txt') then
Showmessage('La ligne a ete viree')
else
Showmessage('La ligne n''a pas ete viree');
end;