richedit +php code einfügen

[mav]

hi all

ich möchte gerne einen php code generieren lassen, jedoch kann ich die funktion nicht ausführen, will er mir einen Zugriffsfehler bringt..

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
        +'?>';
with FNew.RichEdit1.CaretPos do
  FNew.RichEdit1.Lines.Add(code);
end
end;

[Wuaegner]

So geht's:

Delphi-Quellcode:

 var
  code: string;
begin
code := '<?php' + #13#10+
        '$database='+Edit1.Text+#10#13
        +'$sqlhost='+Edit2.Text+#10#13
        +'$sqluser='+Edit3.Text+#10#13
        +'$sqlpass='+Edit4.Text+#10#13
        +'?>';
with FNew.RichEdit1.CaretPos do
  FNew.RichEdit1.Lines.Add(code);
end;

[mav]

Der Zrugriffsfehler sprint jetzt auf die Zeile mit

with FNew.RichEdit1.CaretPos do ;(

aber trotzdem mal thx

[Wuaegner]

Bei mir geht's! Was kommt für eine Fehlermeldung?

[DGL-luke]

wenn du schon ein with do hast, warum hast du dann in der zweiten zeile trotzdem noch einmal das das FNew.... drin?!

[mav]

bekomme die Zugriffsverletzung bei Adresse XXXXXXX in Modul xxxxxxx.exe

ich habe es drin, weil er mir sonst ein compil error ausgibt

[toms]

Was ist denn das FNew?

[mav]

eine andere unit

[Luckie]

Das

Delphi-Quellcode:

with FNew.RichEdit1.CaretPos do 
  FNew.RichEdit1.Lines.Add(code);

ausgeschrieben ergibt:
FNew.RichEdit1.CaretPos.FNew.RichEdit1.Lines.Add(code); Und jetzt überlegen wir mal, ob das sinnvoll ist und so gehen kann.

Zitat:

ich habe es drin, weil er mir sonst ein compil error ausgibt

Schön. WEenn du uns sagen würdest, WAS für ein Kompilerfehler, dann könnte man dir vielleicht sogar helfen.

[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