SaveToFile (part to)

Hvis filen ikke er ret lang kan du vel bare læst den ind i hukommelsen og så skrive det hele ud med den nye linje sidst.

Hej, denne procedure kan delete en linie i en file:

procedure DeleteLineFromTextFile(FileName: String; LineNumber: Integer);
var
sl: TStringList;
begin
sl := TStringList.Create;
sl.LoadFromFile(FileName);
sl.Delete(LineNumber-1);
sl.SaveToFile(FileName);
sl.Free;
end;


Du kan jo bruge den hvis du ved hvadfor en line der skal væk.
Jeg vil lige se om jeg kan få tid til at lave en anden procedure der også kan finde textten for dig - hvis du vil have det?

Takker :)