String in html Code umwandeln

[BrunoT]

Hallo Hansi,

meinst Du so? :arrow:

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. :P

mfg

brunoT

[DP-Maintenance]

Dieses Thema wurde von "Sharky" von "Klatsch und Tratsch" nach "Sonstige Fragen zu Delphi" verschoben.
Ist ja eine Delphifrage wie sich zeigt.

[Hansi]

Im Prinzip soll es genau so aussehen.

kann Deinen Code hier nicht testen, werde in aber heute abend sofort ausprobieren.

DAnke schon mal für die super hilfe hier im Forum...

[Hansi]

Kann ich für mein Problem nicht einfach einen TWebBrowser benutzen? Das müsste doch genau das richtige sein, oder?