Hilfestellung Speichern/Laden von Werten in anderen Datein

[himitsu]

Für eine Textdatei, wäre ja eine Klasse gut, welche Textdaten verwaltet ...
und das wäre z.B. eine TStringList mit den Funktionen TStrings.LoadFromFile und TStrings.SaveToFile
(TStrings ist nur der Vorfahr der TStringList ... zum besseren Auffinden in der OH )

Verwendet wird die StringListe, wie TMemo.Lines und zur Verwendung steht wirklich alles in der OH,
aber im Notfall gibt es tausende Beiträge (TStringList), wo man abgucken kann.



Ach ja, Moin und Willkommen

[Rarator]

wenn du die Hilfe meinst, die man normalerweise über Delphi abrufen kann funktioniert bei mir nicht...
villt hätte ich sagen sollen, dass ich Delphi6 nutze.

und durch die SuFu habe ich wie bereits gesagt, nichts brauchbares gefunden, da wären mir Direktlinks zu den Threads, wo die thematik komplett behandelt wird mit kommentierten beiliegenden Quellcode lieber.

Zitat:

Verwendet wird die StringListe, wie Delphi-Referenz durchsuchenTMemo.Lines und zur Verwendung steht wirklich alles in der OH,
aber im Notfall gibt es tausende Beiträge (Hier im Forum suchenTStringList), wo man abgucken kann.

das habe ich gemacht, nichts gefunden, was mir helfen tun

Zitat:

Für eine Textdatei, wäre ja eine Klasse gut, welche Textdaten verwaltet ...
und das wäre z.B. eine Delphi-Referenz durchsuchenTStringList mit den Funktionen Delphi-Referenz durchsuchenTStrings.LoadFromFile und Delphi-Referenz durchsuchenTStrings.SaveToFile
(TStrings ist nur der Vorfahr der TStringList ... zum besseren Auffinden in der OH )

bzw. wie soll das mit der klasse funktionieren? bin in diesem fall sehr begriffsstutzig

[DeddyH]

Zitat von Rarator:

wenn du die Hilfe meinst, die man normalerweise über Delphi abrufen kann funktioniert bei mir nicht...

Windows 7? Dann schau mal hier: http://www.microsoft.com/downloads/d...4-008e02b32a2c

[Bummi]

So, damit kannst Du mal anfangen rumzuspielen .....

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl:TStringList;
begin
   if Opendialog.Execute then
      try
        sl:=TStringList.Create;
        sl.LoadFromFile(Opendialog.FileName);
        if sl.Count > 0 then Edit1.Text := sl[0];
      finally
        sl.Free;
      end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  sl:TStringList;
begin
  if SaveDialog.Execute then
      try
        sl:=TStringList.Create;
        sl.Add(Edit1.Text);
        sl.SaveToFile(Savedialog.FileName);
      finally
        sl.Free;
      end;
end;

[DeddyH]

Sollte die Liste nicht besser vor dem Try erzeugt werden?

[himitsu]

PS: Schau mal auf die Portalseite und such dort rechts nach einem Linkder so ähnlich wie eine Referenz für Delphi klingt.
Das ist unter anderem die OH (Online-Hilfe) als Online-Version, mit freundlicher Unterstützung unseres Admins.

[Bummi]

@DeddyH

ja, sorry ... Schnellschuss

[bernerbaer]

Zitat von DeddyH:

Sollte die Liste nicht besser vor dem Try erzeugt werden?

Warum? Weil es in den meisten Lehrbüchern zu Delphi so vermittelt wird? Was kann passieren, wenn das Create fehlschlägt? -> Nichts.

Klar ist Bummis Code verbesserbar, da SL irgendwelchen Müll enthalten könnte. Ein sl:= nil vor dem sl create wäre meiner Meinung nach besser.

[himitsu]

Zitat von bernerbaer:

Warum? Weil es in den meisten Lehrbüchern zu Delphi so vermittelt wird? Was kann passieren, wenn das Create fehlschlägt? -> Nichts.

Die Variable wäre nicht initialisiert und dann knallt es womöglich höchstwahrscheinlich im Free des Finally.

Wenn man die Variable vor dem Try auf Nil setzt, bzw. sie automatisch gesetzt wurde, was bei einer loklen Variable aber nicht der Fall ist,
dann kann man das Create auch innerhalb des Try-Blocks machen.


Wenn man unbedingt auf das Begin-End verzichten will, welches nötig wäre, wenn .Create vor dem Try liegen würde,
dann wäre Folgendes eine (oftmals verfluchte) Möglichkeit. (wegen dem böse With)

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  if SaveDialog.Execute then
    with TStringList.Create do 
      try
        Add(Edit1.Text);
        SaveToFile(SaveDialog.FileName);
      finally
        Free;
      end;
end;

[Sir Rufo]

Zitat von bernerbaer:

Zitat von DeddyH:

Sollte die Liste nicht besser vor dem Try erzeugt werden?

Warum? Weil es in den meisten Lehrbüchern zu Delphi so vermittelt wird? Was kann passieren, wenn das Create fehlschlägt? -> Nichts.

Nein, es geht um das generelle Code-Design, und das ich mich als Programmierer auf gewisse Sachen verlassen kann.

In diesem Konstrukt wird der gesamte try .. finally .. end Block nur dann ausgeführt, wenn TMyFoo.Create keine Exception wirft.

Delphi-Quellcode:

MyFoo := TMyFoo.Create;
try
  // irgendwas mit MyFoo machen
finally
  MyFoo.Free;
end;

Hier sieht das aber ganz anders aus. Wenn TMyFoo.Create eine Exception wirft, dann wird der finally Teil ausgeführt.

Delphi-Quellcode:

try
  MyFoo := TMyFoo.Create;
  // irgendwas mit MyFoo machen
finally
  MyFoo.Free;
end;

Wir haben also 2 völlig unterschiedliche Verhaltensweisen. In dem gezeigten Beispiel mag das zwar völlig wumpe sein, aber man sollte sich dessen bewusst sein.

Zitat von bernerbaer:

Klar ist Bummis Code verbesserbar, da SL irgendwelchen Müll enthalten könnte. Ein sl:= nil vor dem sl create wäre meiner Meinung nach besser.

Was interessiert einen der Wert einer lokalen Variable, vor der Initialisierung? Oder deklarierst du das immer so:

Delphi-Quellcode:

procedure Foo;
var
  lFoo : Integer;
begin
  lFoo := 0; // es könnte ja was ganz doofes da in lFoo stehen, also nur so zur Sicherheit
  lFoo := 100;
  ...
end;

Denn das ist genau das was du vorschlägst:

Delphi-Quellcode:

procedure Foo;
var
  lFoo : TFoo;
begin
  lFoo := nil; // es könnte ja was ganz doofes da in lFoo stehen, also nur so zur Sicherheit
  lFoo := TFoo.Create;
  ...
end;