String in html Code umwandeln

[BrunoT]

Hallo Hansi,

meinst Du so?

Delphi-Quellcode:

procedure TForm1.FettClick(Sender: TObject);
Var
 Startpos,i:Integer;
begin
 Startpos:=Memo1.SelStart;
 i:=Memo1.SelLength;
 Memo1.SelStart:=Startpos;
 Memo1.SelLength:=0;
 memo1.SelText:='[B]';
 Memo1.SelStart:=Startpos+i+3;
 Memo1.SelLength:=0;
 memo1.SelText:='[/B]';
end;

procedure TForm1.UnterstrichenClick(Sender: TObject);
Var
 Startpos,i:Integer;
begin
 Startpos:=Memo1.SelStart;
 i:=Memo1.SelLength;
 Memo1.SelStart:=Startpos;
 Memo1.SelLength:=0;
 memo1.SelText:='<U>';
 Memo1.SelStart:=Startpos+i+3;
 Memo1.SelLength:=0;
 memo1.SelText:='</U>';
end;

procedure TForm1.TabelleClick(Sender: TObject);
Var
 Startpos:Integer;
begin
 Startpos:=Memo1.SelStart;
 Memo1.SelStart:=Startpos;
 Memo1.SelLength:=0;
 memo1.SelText:='<table border="1">'#13#10+
 '<tr>'#13#10+
 '<th>Berlin</th>'#13#10+
 '<th>Hamburg</th>'#13#10+
 '<th>München</th>'#13#10+
 '</tr><tr>'#13#10+
 '<td>Miljöh</td>'#13#10+
 '<td>Kiez</td>'#13#10+
 '<td>Bierdampf</td>'#13#10+
 '</tr><tr>'#13#10+
 '<td>Buletten</td>'#13#10+
 '<td>Frikadellen</td>'#13#10+
 '<td>Fleischpflanzerl</td>'#13#10+
 '</tr>'#13#10+
 '</table>'#13#10;

end;

Ausbaufähig ist das ganze noch mit Angabe der Zeilen der Tabelle und automatisches Schreiben in eine Excel-Tabelle per Ole.

mfg

brunoT