News aktualisieren

[CG2003]

Hier wird der Inhalt zwischen den beiden ContentNET-Tags auf ein TEdit ausgegeben:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const TmpFileName='c:\temp_adp.newandhot';
var
rawHTM, buffer : string;
NewAndHotHTMFile : TextFile;
iStart, iStop : integer;
begin
   Memo1.Lines.LoadFromFile('temp.html');
   AssignFile(NewAndHotHTMFile, ExtractFilePath(Application.Exename) + 'temp.html');
   Reset(NewAndHotHTMFile);
      while not EOF(NewAndHotHTMFile) do begin
        ReadLn(NewAndHotHTMFile, buffer);
        rawHTM := Concat(rawHTM, buffer);
      end;
      iStart := Pos('',rawHTM) + Length('');
      iStop := Pos('</!--ContentNET1-->',rawHTM);
      Edit1.Text := Copy(rawHTM, iStart, iStop-iStart);
      CloseFile(NewAndHotHTMFile);
      DeleteFile(TmpFileName)

Nun muß ich nur noch den Inhalt beider Tags ändern können!