Hilfestellung Speichern/Laden von Werten in anderen Datein

[Rarator]

Guten morgen erstmal,
zu begin wollt ich gerne sagen, dass ich neu im forum bin, falls dieser thread nicht in den bereich passt, mich bitte korrigieren.

nun zu meinem Problem:

1. im ordner "Test" würd das neue Projekt1 gespeichert
2. im selben ordner packe ich noch text1.txt als datei rein; erste zeile lautet: "1234"
3. aus text1.txt soll die erste zeile ausgelesen und als variable t im format string hinterlegt werden
4. neue *.txt datei erstellen
5. werte in *.txt 'speichern'/'laden'

mein wunsch wäre es, wenn jmd. mir dazu einen kommentierten quelltext geben/schreiben könnte mit dem erforderlichen/benötigten befehlen und diesen auch komplett kommentiert, was wofür da ist.

Grund:
Zu dieser Thematik habe ich bestimmt mehrere stunden gesucht und nichts für mich verständliches gefunden, aber ich habe auch hier die SuFu benutzt, kam jedoch zu keinem ergebnis.:oops:
nunja bei mir liegt das problem ja darin, wenn ich mir etwas neues zu delphi beibringe, es parallel auch direkt test und es vor augen haben muss, wie die logik dahinter ist, dann verstehe ich es auch ^^ und gerade vor dieser thematik schwirrt mir der kopf, da ich soviele anscheinliche wege gefunden haben, wo das testen einfach scheiterte bzw. das verständnis dann fehlte :(

mfg.Rarator


ps. Hiermit möchte ich schonmal den Helfern im Voraus danken, dass diese sich die Mühe bereitet haben mir zu helfen.

[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 :angle2:)

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 :hi:

[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 :wiejetzt:

[DeddyH]

Zitat:

Zitat von Rarator (Beitrag 1136232)

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:

Zitat von DeddyH (Beitrag 1136235)

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:

Zitat von bernerbaer (Beitrag 1136298)

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:

Zitat von bernerbaer (Beitrag 1136298)

Zitat:

Zitat von DeddyH (Beitrag 1136235)

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

Delphi-Quellcode:

try .. finally .. end

Block nur dann ausgeführt, wenn

Delphi-Quellcode:

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

Delphi-Quellcode:

TMyFoo.Create

eine Exception wirft, dann wird der

Delphi-Quellcode:

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:

Zitat von bernerbaer (Beitrag 1136298)

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;

[bernerbaer]

Ja, ich hab mich nur kurz ausgedrückt. Eigentlich bin ich vollkommen deiner Meinung, ohne sl:= nil könnte free Daten zerstören. Free prüft soweit ich richtig bin, immer ob überhaupt eine Instanz des Objektes besteht, deshalb das sl:= nil vor dem create.

Ich selbst gehe fast immer so vor

Delphi-Quellcode:

foo := nil;
try
   foo := TFoo.create;
   //mach was
finally
  foo.free;
end;

warum? In der Regel ist es so, dass mehrere Objekte erzeugt werden müssen, eine komplexe Verschachtelung von Try und Finally für jedes einzelne Objekt macht den Code dann extrem unübersichtlich. Deshalb erzeuge ich Objekte meist innerhalb des Try Blockes.

Bsp.:

Delphi-Quellcode:

foo := nil;
bar:= nil;
try
   foo := TFoo.create;
   bar:=TBar.create;
   //mach was mit Foo und Bar
finally
  bar.free
  foo.free;
end;

[Rarator]

@ alle

Vielen Dank für eure reiche Hilfe, meine Fragen bzgl Thema sind beantwortet und thread kann geclosed werden :D