Forum: Object-Pascal / Delphi-Language
by Delphi.Narium,
27. Aug 2018
Du musst lStringListDatei erstellen und wieder freigeben.
begin
lStringListDatei := TStringlist.Create;
// dein Code
lStringListDatei.Free;
end;
Forum: Object-Pascal / Delphi-Language
by Delphi.Narium,
24. Aug 2018
Wenn ich die Aufgabenstellung recht verstanden habe, muss bei den Dir vorliegenden Dateien immer in die vorletzte Zeile was eingefügt werden:
var
sl : TStringList;
begin
sl := TStringList.Create;
sl.LoadFromFile(FILEPATH);
sl.Insert(sl.Count - 1,'<myTag>irgendein Inhalt</myTag>');
sl.SaveToFile(FILEPATH);
sl.Free;
end;
Forum: Object-Pascal / Delphi-Language
by Delphi.Narium,
24. Aug 2018
Bin mal naiv:
Datei in 'ne Stringliste laden und ein bisserl anpassen, ungefähr sinngemäß sowas:
var
sl : TStringList;
begin
sl := TStringList.Create;
sl.LoadFromFile(FILEPATH);
sl.Insert(1,'<reparaturtag>');
sl.Add('</reparaturtag>');