TEdit speichern und lesen

[mkinzler]

Zitat von Zoot:

Zitat von Wikes:

Ich habe auf es so gemacht wie es gesagt wurde. Doppelklicken auf OnCreate und dann Code eingefügt in die automatisch erstellte procedure.

Und dabei wurde dir das hier automatisch erstellt:

procedure isi_FormCreate(Sender: TObject); ???

Wohl eher nicht, den dann wäre es eine Methode und keine einfache Prozedure wie hier.

[BadenPower]

Zitat von Wikes:

ich benutze ein anderes Programm wo Delphi verwendet wird. Deswegen der Unterschied in proceudre.

Was soll das denn für ein sein?

Und wenn Du uns das Programm nicht nennst, dann können wir auch nicht auf die ausschlaggebenden scheinbar vorhandenen (oder auch nicht) Auswirkungen auf den erzeugten Code eingehen.

[Wikes]

@AlexII: Code habe ich schon hochgeladen.

@Zoot: Ja wurde automatisch erstellt.

Auch wenn ich das Programm nenne wirst du es niergends finden.

[BadenPower]

Zitat von Wikes:

@AlexII: Code habe ich schon hochgeladen.

Einen hochgeladenen Code hab ich nicht gefunden.

Das was Du gepostet hast, dass sind Code-Fragmente, welche mit diesen Procedure-Deklaration in Delphi für das automatische Laden und Speichern nicht funktionieren.

Zitat von Wikes:

Auch wenn ich das Programm nenne wirst du es niergends finden.

Die geposteten Proceduren mit für Delphi angepassten Deklarationen funktionieren für das Laden und Speichern.

Da wir nicht wissen können, wie "Dein Programm" weil wir es nicht kennen, es intern bewerkstelligen soll, diese Proceduren in Dein Projekt einzubinden, damit sie automatisch aufgerufen werden, können wir Dir hier so mit diesen Informationen nicht weiterhelfen.


Also entweder die gesamte Unit hier posten oder als Zip-Datei hochladen.

[Popov]

Zitat von himitsu:

Nein, in der Variable ist natürlich eine TStringList-Instanz, mit allen ihren Funktionen

Trotzdem, auch wenn es hier nicht der Grund ist, man sollte so was, zumindest wenn es nicht nötig ist, vermeiden.

Eine Frage, was kommt hier als Ergebnis raus?

Delphi-Quellcode:

type
  TTestBasis = class
    FWert: Integer;
    function GetWert: Integer;
  public
    property Wert: Integer read GetWert write FWert;
  end;

  TTest = class(TTestBasis)
    function GetWert: Integer;
  public
    property Wert: Integer read GetWert write FWert;
  end;

function TTestBasis.GetWert: Integer;
begin
  Result := FWert * 2;
end;

function TTest.GetWert: Integer;
begin
  Result := FWert div 2;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Test: TTestBasis;
begin
  Test := TTest.Create;
  try
    Test.Wert := 6;
    ShowMessage('Ergebnis: ' + IntToStr(Test.Wert));
  finally
    Test.Free;
  end;
end;

PS: ich weiß, dass das virtual und override fehlen, trotzdem.

[frankyboy1974]

Also ich rate mal,

42

mfg

frank

[mkinzler]

Zitat:

PS: ich weiß, dass das virtual und override fehlen, trotzdem.

Warum bringst Du dann das Beispiel, wenn es (wissentlich) falsch ist?
Abgesehen davon ist Dein Beispeil kein wirklichgen Grund, es gegen die allgemeine Praxis anders zu machen, weil der Fehler nicht am Typ sondern an einem (konstruierten) Designfehler liegt.

[Popov]

Weil es vorkommen kann. An einer anderen Stelle, den Thered finde ich jetzt nicht, war es der Grund für den Fehler. Weil es eben so war.

[Wikes]

Gibt es eine Möglichkeit es ohne Textdatei zu machen?

[AlexII]

Zitat von Wikes:

Gibt es eine Möglichkeit es ohne Textdatei zu machen?

Es gibt viele Möglichkeiten: INI-Datei, XML-Datei, Datenbank

Wieso stört dich die Textdatei?