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

Delphi-Quellcode:

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:

Delphi-Quellcode:

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

[mav]

die lösung von marabu scheint mir am besten, jedoch gehts auch nicht..

[Luckie]

Existiert das andere Formular zu dem Zeitpunkt denn schon im Speicher?

[mav]

jap tut es, denn fals nicht, kann der befehl gar nicht aufgerufen werden

[marabu]

Gaube ich nicht. Ändere die letzte Zeile mal so ab:

Delphi-Quellcode:

if Assigned(FNew) 
  then FNew.RichEdit.SelText := code
  else ShowMessage('ertappt');

marabu

[mav]

ok.. bin "ertapt"

das problem ist, was ich nun nicht verstehe. Ich starte mit FMain, und öffne dan dadurch FNew und erst wenn FNew offen ist, kann ich die FPHP_MYSQL überhaupt aufrufen

[marabu]

Wenn du dir nicht beim Erstellen von FNew die Fenster-Instanz in der Variable FNew speicherst, dann kannst du später auch nicht darüber zugreifen.

marabu

[mav]

und wie mach ich das? :roll: :?:

[marabu]

Ich kann dir nur sagen, was du falsch machst, wenn du mir den relevanten Quellcode zeigst - aber ich muss mich warnen: das kann der Anfang einer never ending help session werden.

marabu

[mav]

ok.. ich werde es lassen.. thx für deine hilfe

[marabu]

Sei bitte nicht eingeschnappt, aber ich muss jetzt schlafen - eigentlich tue ich es schon. Kleiner Tipp noch bevor ich mich aufs Ohr lege: Wenn du FNew in deinen Projekteigenschaften als automatisch erzeugtes Formular festlegst, dann brauchst du es nur noch mit Show(), ShowModal() und Hide() steuern und bist sicher, dass es korrekt erzeugt wurde.

Gute Nacht vom marabu

[mav]

habe eigendlich jetzt alles von FMain aus mit MDIForm gemacht..
also FNew.Create(Self) (<- MDIChild)

[Luckie]

Äh ein Objelt er zeugt man so:

Delphi-Quellcode:

var
  FNew: TMeineFormKlasse;
begin
  FNew := TMeineFormKlasse.Create(Self);