Entwickler-Ecke

Sonstiges (Delphi) - wörter aus memo in html speichern mit link


Murmel - Mi 26.02.03 15:18
Titel: wörter aus memo in html speichern mit link
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 - Mi 26.02.03 17:07
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 - Do 27.02.03 10:42
Titel: habs gelöst...

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 user profile iconTino: Code-Tags hinzugeüfgt.


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!