Edit Abspeichern

[moritz]

Zitat von sandraeberlein:

Ich find nix in den Resultaten!
bittebitte helft mir! Mein Infolehrer killt mich!
Danke danke danke!!!

Bussibuss und Küsschen eine verzweifelte sandra

Langsam wir das ja sexuelle Belästigung, hier
Wie die anderen schon sagen: Ein TEdit bietet nicht von sich selbst aus die Möglichkeit, zu speichern. Dafür brauchst du entweder ein TMemo, das kann das, oder du erledigst das ganze selbst. Dazu haben die anderen ja bereits genug Links geschrieben.

Alternativ wäre es natürlich möglich, direkt in den Speicher des Edit's zu schreiben

Hdgggggggggdl , mo

[PierreB]

Zitat von malo:

Zitat von PierreB:

Ich wüsste da was verwirrendes für deinen Lehrer:
Lad den Text aus dem Edit in eine Variable, die lädst du dann in ein Memo und speicherst das als Datei.

Öhm, etwas sinnbefreiteres fällt dir nicht ein?

P.S.: Sorry für dieses Post, aber wir sind ja in K & T.

[schöni]

Hallo sandraeberlein!

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
  private
    { Private-Deklarationen }
    Datei: Text;
  public
    { Public-Deklarationen }
    procedure SaveToFile(Name: String);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SaveToFile(Name: String);
begin
   Assignfile(Datei, Name);
   if FileExists(Name)   //Gibt es die Datei schon?
      then Reset(Datei)  //Wenn Datei schon da, neue Werte mit hier rein
   else Rewrite(Datei);  //Oder Rewrite, wenn Datei noch nicht existiert 
   Writeln(Datei, Edit1.Text);
   CloseFile(Datei);
end;

end.

Du kannst auch die Datei mit Rewrite immer neu anlegen. Da wir aber der alte Inhalt gnadenlos gelöscht, ist dann also unwiederbringlich verloren. Aber du sparst Dir dann das if then else.
Kommt drauf an, was Du mit dem gespeicherten Wert anschließend machen willst.

Eine andere Möglichkeit mit Fehlerbehandlung wäre folgende:

Delphi-Quellcode:

procedure TForm1.SaveToFile(Name: String);
begin
 try
   try      //Versuche das was bis zum Except folgt auszuführen
     Assignfile(Datei, Name);
     Reset(Datei);
   except   //Wenn irgendwas schief geleaufen ist
     Rewrite(Datei);
     Writeln(Datei, Edit1.Text);
   end;
  finally   //Auch dann machen, wenn irgendein Fehler aufgetreten ist
   CloseFile(Datei);
  end;
end;

Ich setze hier voraus, das noch genug Platz auf dem Datenträger vorhanden ist und auch sonst alles mit dem Rechner Ok ist. Dann kann als Fehler nur noch "Datei nicht vorhanden" auftreten.

Viel Erfolg

Schöni

[Kernel32.DLL]

@Sandra:
Änder doch mal büdde deinen Titel. Ich such so selten in Foren nach "Höö??" oder "Komischer Fehler". Vllt. gehts anderen ja auch so....

@Mods:
Bitte nicht haun'... ich will euch die arbeit ja nicht wegnehmen...

Kuss,
Daniel
Kuss? Wat is denn mit mir los....

[Luckie]

Bitte gib deinem Thread einen aussagekräftigeren Titel. "Höö?? Komischer Fehler" gehört nicht unbedingt dazu.