richedit +php code einfügen

[marabu]

Hallo mav,

versuche es mal so:

Delphi-Quellcode:

procedure Tphp_mysql.Button1Click(Sender: TObject); 
var
  code: string;
begin
  code := '<?php' + #13#10
        +'$database='+Edit1.Text+ #13#10
        +'$sqlhost='+Edit2.Text+ #13#10
        +'$sqluser='+Edit3.Text+ #13#10
        +'$sqlpass='+Edit4.Text+ #13#10
        +'?>';
  FNew.RichEdit.SelText := code;
end;

Grüße vom marabu