wörter aus memo in html speichern mit link

Murmel · Beiträge: 79 xp d6,d7

wie kann ich wohl die wörter aus einer memo, die durch ein komma getrennt sind in eine Html speichern und jedes wort mit einem link versehen, der link soll in einer edit stehen...

gruß murmel

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Hallo,

du musst schon mehr ins Detail bei Deiner Beschreibung gehen. Soll jedes Wort in einer extra HTML Datei oder alle zusammen? Bekommen alle den gleichen Link? Wenn nein, wie baut sich der Link auf?

Gruß
TINO

Murmel · Beiträge: 79 xp d6,d7

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

var
  f: TextFile;
  sl: TStrings;
  i: integer;
begin
screen.Cursor:=crhourglass;
  AssignFile(f, 'c:\backdoorpage.html');
  Rewrite(f);
  Writeln(f, '<html>');
  Writeln(f, '<head>');
  Writeln(f, '<title>BackDoorCreator</title>');
  Writeln(f, '</head>');
  Writeln(f, '<body>');
  sl := TStringList.Create;
  try
    sl.CommaText := RichEdit.Text;
    for i := 0 to sl.Count - 1 do
      Writeln(f, '<a href="'+Edit1.text + '">' + sl[i]+'</a><br>');
  finally
    sl.Free;
  end;
  Writeln(f, '</body>');
  Writeln(f, '</html>');
  CloseFile(f);
  screen.Cursor:=crdefault;
MessageDlg('Die BackDoorPage wurde erfolgreich auf Laufwerk C:/backdoorpage.html gespeichert!', mtInformation,[mbOk], 0);
end;

Moderiert von Tino: Code-Tags hinzugeüfgt.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme