Filer

Jeg går ud fra at det er en tekst fil du har.

Slet "tekst2" kunne gøres ved at:

Indlæse den original fil linie for linie. Hver gang du læsaer en linie ind, så skriver du den samme linie over i en ny fil. dette gør du for hele filen, foruden den linie du vil slette.

At ændre en linie forgår efter samme princip.

Du kan bruge:
stringreplace('Din string med text', 'tekst2', 'tekst0', [rfReplaceAll]);

Funktion som erstater alle, substrings i en string. I det tilfælde vil alle steder som der står tekst2 blive lavet om til tekst0.

Jeg læser alle linier ind i en TStringList og derefter laver en Rewrite og indlæser TStringListens indhold. Tak :-)

ang spørgsmål 1.
Hvis du ved hvilken linie den ligger på, kan du jo loade den ind i en stringlist og så bare bruge dens delete function.

Ellers lavede jeg lige en procedure:

procedure TForm1.SletLinie(Fil, SearchText: string; casesens: boolean);
var
st:tstringlist;
I:integer;
begin
st:=tstringlist.Create;
st.LoadFromFile(Fil);
for I := st.Count-1 downto 0 do
begin
if casesens then
begin
if st.Strings[I] = SearchText then
    st.Delete(I);
end else
if pos(SearchText, st.Strings[I]) > 0 then
  st.Delete(I);
end;
st.Free;
end;

//Sample
SletLinie('C:\Minfil.txt', 'tekst2', true);

casesens lavede jeg lige hvis du er helt sikker på hvad det er som skal slettes. Hvis du ikke er skal du bare sætte den til false, så sletter den alle de linier som indeholder din Searchtext