Fehler bei Übernahme von Text aus Edit

[Sir Rufo]

Zitat von s.h.a.r.k:

Dann hol ich schon mal einen Besen. Warum sollte er das nicht "überschreiben" können. Wenn er irgendwo Edit1 := TEdit.Create(frmTitle) // etc macht, dann ist das schneller passiert als man denkt Das ist zwar sehr unwahrscheinlich, aber möglich.

Und wie kommt dann der Vorgabetext da rein?

[s.h.a.r.k]

Ich seh schon, wir verstehen uns

-- Edit:

Das sollte das //etc andeuten Möglich wäre es jedenfalls.

[KPBecker]

Hallo, Delphi-Praktiker,

wie gesagt:

1. Vielen Dank
2. Das muß ich mir erst noch genauer anschauen (warum ist der voreingestellte Text aus dem Objekt-Inspektor immer lesbar ?)
3. Trotzdem wie vorgeschlagen die zip-Datei (noch nicht viel Programm da)

KP

[Sir Rufo]

Ohne Worte

Delphi-Quellcode:

program InfektExpert;

uses
  Forms,
  InfektExpertHP in 'InfektExpertHP.pas' {frmTitel},
  GlobVar in 'GlobVar.pas',
  Einstellungen1 in 'Einstellungen1.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TfrmTitel, frmTitel);
  Application.CreateForm(TfrmTitel, frmTitel);
  Application.CreateForm(TfrmTitel, frmTitel);
  Application.Run;
end.

[stahli]

...ein paar Worte machen vielleicht doch Sinn:

Hallo Klaus-Peter,

Du solltest den Programm-Quelltext erst mal nicht von Hand ändern.

Ein neues Programm sieht etwa so aus:

Delphi-Quellcode:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Wenn Du dann über das Delphi-Menü neue Formulare hinzufügst, ändert Delphi Den Programm-Quelltext. Da sollte man nicht drin herum pfuschen

Du erstellst 3 Instanzen Deines Formulars. Wenn dies wirklich mal nötig ist (kommt selten vor), kann man neue Formulatre auch zur Laufzeit später erzeugen.
Lösche mal 2 Deiner CreateForm-Zeilen.

[himitsu]

Und schon haben wir einen Beweiß, daß diese globalen Form-Variablen sche**e sind.
Ich vordere ja schon lange, daß dieser Mist endlich mal abgeschaft wird.
> eine "lokale" Variable nur innerhalb der DPR könnte man sich selber basteln, aber schöner wäre es, wenn man karkeine verwenden müßte, wenn man zum Erstellen diese CreateForm-Methoden verwendet.

Und nun nochmal der Grund, warum es hier schief lief.
PS: Es wurde immer das ausgelesen, was DU von Delphi verlangt hast.

- Delphi blendet automatisch nur das Hauptformular an, welches standardmäßig das erste erstellte Formular ist.
- die anderen Forms bleiben unsichtbar, da dort standardmäßigg Visible auf False steht
- die globale Variable wurde mehrfach überschrieben und es war dadurch die zuletzt erstlette Form darin verlinkt
- tja, da du nun unbedingt diese blöde Globale nutzen wolltest, hast du somit immer den Text aus dessen Edits ausgelesen,
aber nur die Edits einer anderen, sichtbaren Form geändert

[KPBecker]

Hallo, Delphi-Praktiker,

man weiß ja vielleicht oft nicht, was man tut.
In diesem Fall bin ich allerdings ganz sicher, daß ich weder die Zeile
Application.CreateForm(TfrmTitel, frmTitel); "getripelt" habe noch in diesem Programmteil irgendwelche Änderungen vorgenommen habe.
Diesen initialen Code packe ich nie an, daher habe ich wahrscheinlich auch jetzt nicht dort nachgeschaut.
Bei welcher Gelegenheit Delphi das getan hat, ist mir unklar. Der von mir bemerkte "Fehler" trat von Anfang an auf.
KPB

[KPBecker]

Frage schließen.