TEdit speichern und lesen

[mkinzler]

Ja Datenbank, Registry, Cloud, ...

[Zoot]

Zitat von Wikes:

Ja wurde automatisch erstellt.

*Interessant*

[vagtler]

Zitat von Wikes:

[...] @Zoot: Ja wurde automatisch erstellt. [...]

Niemals.

Warum weigerst Du Dich eigentlich so vehement, einfach mal den gesamten Code zu posten?

[BadenPower]

Zitat von vagtler:

Zitat von Wikes:

[...] @Zoot: Ja wurde automatisch erstellt. [...]

Niemals.

Warum weigerst Du Dich eigentlich so vehement, einfach mal den gesamten Code zu posten?

Weil er sein Projekt auch mit einer streng geheimen IDE entwickelt.

[Popov]

Zitat von Wikes:

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

z. B. in der Registry:

Delphi-Quellcode:

uses
  Registry;

function RegIniPath: string;
begin
  Result := 'Software\' + ExtractFileName(ChangeFileExt(ParamStr(0), ''));
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  RegIni: TRegIniFile;
begin
  RegIni := TRegIniFile.Create(RegIniPath);
  try
    Edit1.Text := RegIni.ReadString('', 'Edit1', '');
  finally
    RegIni.Free;
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  RegIni: TRegIniFile;
begin
  RegIni := TRegIniFile.Create(RegIniPath);
  try
    RegIni.WriteString('', 'Edit1', Edit1.Text);
  finally
    RegIni.Free;
  end;
end;

[redox]

Kann dem Wikes nicht endlich mal jemand erklären, warum in seinem Edit1.Text immer die falsche Zeile beim Laden der TStringList steht?

Edit1.Text:=List[0]; Wenn er sich endlich mal seine "C:\Projekts\Textdokument.txt" mit dem Editor von Windows anschaut, dürfe er sogar bemerken, wo der Fehler liegt:

Edit1.Text:=List[0]; Der abgespeicherte Text steht nicht in der ersten, sondern in der letzten Zeile von "C:\Projekts\Textdokument.txt".

Sind hier denn nur noch Sadisten online?

[bepe]

Zitat von redox:

Sind hier denn nur noch Sadisten online?

Nein aber Leute die aufmerksam lesen

Laden und Speichern verwenden ihre eigene Stringliste. Vorm Add wird eine neue Liste erzeugt, die ist leer. Also sollte der gezeigte Quelltext "echt" sein, dann ist das nicht das Problem.

Edit:
Außerdem

Zitat von Wikes:

... Beim erneuten Öffnen wars wieder weg und im Textfile ist auch nichts neues drinn gewesen....

[BadenPower]

Zitat von redox:

Kann dem Wikes nicht endlich mal jemand erklären, warum in seinem Edit1.Text immer die falsche Zeile beim Laden der TStringList steht?

Edit1.Text:=List[0]; Wenn er sich endlich mal seine "C:\Projekts\Textdokument.txt" mit dem Editor von Windows anschaut, dürfe er sogar bemerken, wo der Fehler liegt:

Edit1.Text:=List[0]; Der abgespeicherte Text steht nicht in der ersten, sondern in der letzten Zeile von "C:\Projekts\Textdokument.txt".

Sind hier denn nur noch Sadisten online?

Wenn hier nur noch Sadisten unterwegs sind, dann ist Dein Beitrag der Beitrag des Obersadisten.


Der Wert steht in der ersten Zeile der Text-Datei.
Die letzte Zeile ist eine Leerzeile.


Der Quelltext an sich funktioniert, bis auf die Fehlermeldung beim ersten Start.

[Wikes]

Ich will es anderst versuchen weil es sein kann, dass der Laufwerk teilweise schreibgeschützt ist. Wobei ich in meinem Ordner alle Freigaben habe. Ich werde dann mal mit der Registry probieren.


Ich versteh nicht welchen gesammten Code? Das was ich gepostet habe ist in einem neuen Projekt zum Testen.

Danke schon mal für eure Hilfe.

[himitsu]

Zitat von Popov:

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

Nicht "trotzdem", denn genau das verändert die Ausgangsfrage.

In TStrings und TStream sind nunmal die "Funktionalitäten" als Virtual deklariert und werden dann z.B. in TStringList/TMemoStrings und TFileStream/TMemoryStream überschrieben.
Wenn man eine Vererbung "falsch" implementiert, dann existiert dort natürlich nicht das gewohnte Standardverhalten einer Verwerbung.