TEdit speichern und lesen

[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.

[vagtler]

Zitat von Wikes:

[...] weil es sein kann, dass der Laufwerk teilweise schreibgeschützt ist. [...]

Dann solltest Du beim Versuch des Schreibens auch eine Fehlermeldung bekommen.

Zitat:

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

Nein, das was Du gepostet hast, kann noch nicht einmal compilieren (es sei denn, Du hast zufällig eine Variable Edit1 global deklariert).

Du hast Prozeduren gepostet. Diese kannst Du im Objektinspektor aber gar nicht der Form zuordnen. Das geht nur mit Methoden.

Demnach kann also

Zitat von Wikes:

[...] Prozeduren sind im Objektinspektor zugeordnet. [...]

nicht den Tatsachen entsprechen.

Das könnte man alles auflösen, indem Du auch mal auf die nicht wenigen Hilfeversuche eingehen würdest und z.B. mal den vollständigen Code der betreffenden Unit posten würdest. Aber Dir scheint das alles egal zu sein. Warum sollte man Dir also noch weiter helfen wollen?

[Chemiker]

Hallo Wikes,
Du wirst wahrscheinlich keinen Zugriff auf das C: Laufwerk bekommen. Ich habe unter einem eingeschränkten Benutzerkonto gar keinen Zugriff auf das C:\ Laufwerk.
Hier mal ein Beispielprogramm:

Delphi-Quellcode:

unit uEditTestProgramm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShlObj;

type
  TAppInfos = Class(TObject)
  private
    class function GetSpecialPath(nFolder: Integer): string; static;
    class function GetEigeneDateien: TFileName; static;
  public
    class property EigeneDateien : TFileName Read GetEigeneDateien;
  End;

type
  TfrEditTestProgramm = class(TForm)
    edText: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  frEditTestProgramm: TfrEditTestProgramm;

implementation

{$R *.dfm}

class function TAppInfos.GetEigeneDateien: TFileName;
begin
  Result:= IncludeTrailingPathDelimiter(GetSpecialPath(CSIDL_PERSONAL));
end;

class function TAppInfos.GetSpecialPath(nFolder: Integer): string;
var
  Buffer: array[0..MAX_PATH] of Char;
begin
  if SHGetSpecialFolderPath(Application.Handle, Buffer, nFolder, False) then
    Result := Buffer
  else
    RaiseLastOSError;
end;

procedure TfrEditTestProgramm.FormCreate(Sender: TObject);
var
  Liste: TStrings;
  EigeneDateienPath: TFileName;
begin
  Liste:= TStringList.Create;
  try
    EigeneDateienPath:= TAppInfos.EigeneDateien;
    Liste.LoadFromFile(EigeneDateienPath+'EditTextdokument.txt');
    edText.Text:=Liste[0];
  finally
    Liste.Free;
  end;
end;

procedure TfrEditTestProgramm.FormDestroy(Sender: TObject);
var
  Liste: TStrings;
  EigeneDateienPath: TFileName;
begin
  Liste:= TStringList.Create;
  try
    Liste.Add(edText.Text);
    EigeneDateienPath:= TAppInfos.EigeneDateien;
    Liste.SaveToFile(EigeneDateienPath+'EditTextdokument.txt');
  finally
    Liste.Free;
  end;

end;

end.

Bis bald Chemiker

[vagtler]

Es ist immer wieder beruhigend, dass sich irgendwann jemand findet, der die Arbeit anderer macht. Da braucht man wenigstens nichts lernen. Das ist sehr sinnvoll.

[Popov]

@vagtler

Wieso stört dich das? Wir leben nicht mehr vor 100 Jahren, wir haben Demokratie, eine Verfassung, jeder Mensch hat Grundrechte. Das hat vor und Nachteile. Vorteile sind, jeder kann machen was er will. Nachteile sind, jeder muss für sich selbst entscheiden was er macht oder nicht.

Warum sollte ich für jemand anders entscheiden ob er lieber etwas lernen soll oder nicht. Ist nicht gerade das was man in nichtdemokratischen Systemen bemängelt, dass jemand anders für einen die Entscheidungen trifft? Freiheit kann brutal sein, denn sie verlangt Entscheidungen. Hier wäre die Entscheidung: ich lerne nichts, oder ich lerne etwas. Wieso juckt es dich für einen Anderen die Entscheidung zu treffen?