Forum: Object-Pascal / Delphi-Language
Delphi
by Progman,
29. Dez 2009
procedure TForm5.Button2Click(Sender: TObject);
begin
if LabeledEdit1.Text<>'' then memo1.Lines:='## Interface: ' + LabeledEdit1.Text;
//memo1.Lines.Add('## Interface: ' + LabeledEdit1.Text);
Memo1.Lines.SaveToFile(tocpath);
end;
Wäre das nicht möglich?
Dann stände es anstelle des alten Textes in der originalen Zeile :)
Forum: Object-Pascal / Delphi-Language
Delphi
by Progman,
28. Dez 2009
Ich würde so vorgehen:
Alle Verzeichnisse des Ordners AddOns, die nicht mit "Blizzard_" beginnen, in eine TStringList einlesen und diese dann durchgehen und in jedem dieser Verzeichnisse nach *.toc suchen.