Geschlossen: Inhalte eines Programmes speichern ?

[theo]

In der Zeile zeigt er mir immer Diese Fehlermeldung:

unit1.pas(52,6) Error: Identifier not found "Edit1"

Das ist ja nur ein Beispiel, das zeigen soll, wie du den Text in einem TEdit (hier Edit1) speichern kannst.
Du würdest besser mal erklären, was du schon hast, und wie du dir das vorstellst mit dem Speichern.

[Live]

Ich würds so machen:

Code: Alles auswählen

Procedure OnSpeicherbuttonclick(Sender: Tobject);//Das kommt wenn mann doppelt auf den Button klickt
Var Txt: Tstrings
Begin
Txt:=Tstringlist.Create;
Txt.Clear;
Txt.Add(Edit1.Text);
Txt.Add(Label1.Text);//z.B.
//...
Txt.SavaToFile('Bla.Bla');
Txt.Free;
End;
 
//Wiederherstellen:
//On Create;
Var Txt: Tstrings;
Begin
If Fileexists('Bla.Bla') then//bin mir nicht sicher ob der Befehl so richtig geschriben ist
begin
Txt:=Tstringlist.Create;
Txt.LoadFromFile('Bla.Bla');
Edit1.Text:=Txt[0];
Label1.Caption:=Txt[1];//z.B.
//usw.
Txt.Free;
end;

Code: Alles auswählen

Edit1.Text:=Txt[0];

In der Zeile zeigt er mir immer Diese Fehlermeldung:

unit1.pas(52,6) Error: Identifier not found "Edit1"

d'oh ....

[jaslaz]

Das ist ja nur ein Beispiel, das zeigen soll, wie du den Text in einem TEdit (hier Edit1) speichern kannst.
Du würdest besser mal erklären, was du schon hast, und wie du dir das vorstellst mit dem Speichern.

Code: Alles auswählen

implementation
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var apfel, brot, kaese, brapfel, brbrot, brkaese:integer;
begin
apfel    := strtoint(spinedit1.text);  //hier wird eingetragen wie viel man davon noch hat
brot     := strtoint(spinedit2.text);
kaese    := strtoint(spinedit3.text);
 
brapfel  := 6 - apfel;
brbrot   := 7 - brot;
brkaese  := 19 - kaese;
 
edit1.text :=inttostr(brapfel);   //hier wird ausgegeben wie viel man davon noch braucht
edit2.text :=inttostr(brbrot);
edit3.text :=inttostr(brkaese);
 
 
memo1.text  :=
 inttostr(brapfel) + '  Apfel'    + chr(13) + chr(10) +   // memofeld mit Einkaufsliste
 inttostr(brbrot)  + '  Brot'     + chr(13) + chr(10) +
 inttostr(brkaese) + '  Käse'
 
 
 
end;
 
initialization

Es geht darum den Inhalt der spineditfelder zu speichern!

[Bora4d]

Wenn ich deine Fragen schaue dann findest die Lösung am besten hier:
1. Pdf-Dokument herunterladen und durchlesen
http://sourceforge.net/projects/lazsnippets/

2. http://wiki.lazarus.freepascal.org/Lazarus_Tutorial/de

3. http://wiki.lazarus.freepascal.org/Laza ... utorial/de

4. http://www.lazarusforum.de/viewtopic.php?f=17&t=2542

5. Optional:
Für Delphi ist aber auch interessant weil man es für Lazarus auch anwenden kann.
http://de.wikibooks.org/wiki/Programmie ... erzeichnis

[theo]

Es geht darum den Inhalt der spineditfelder zu speichern!

Du kannst das eigentlich schon so machen, wie felix96 es vorgeschlagen hat.
Du hast einfach TSpinEdit statt TEdit.

[jaslaz]

Es geht darum den Inhalt der spineditfelder zu speichern!

Du kannst das eigentlich schon so machen, wie felix96 es vorgeschlagen hat.
Du hast einfach TSpinEdit statt TEdit.

hab ich ja probiert das funzt nich

[jaslaz]

Problem gelöst !!!!

Thread geschlossen.

[af0815]

Problem gelöst !!!!

Thread geschlossen.

Wie macht man es:

Threadersteller editiert im ersten Posting die Überschrift und fügt 'gelöst' hinzu

Hinweis: Eine mögliche Lösungsmöglichkeit. SCNR

[pluto]

Hier noch ein kleiner Link für dich:
http://www.delphi-treff.de/tutorials/datenspeicherung/" onclick="window.open(this.href);return false;
Das meiste müsste auch unter Lazarus gehen.

[felix96]

Es gibt anscheinend kein Edit1...Edit3.
Ich glaube die hast du in Spinedit umbennant

[Euklid]

unit1.pas(52,6) Error: Identifier not found "Edit1"

Diese Fehlermeldung sagt eigentlich nur aus, dass sich auf Deiner Form kein Editfeld befindet, welches die Bezeichnung Edit1 besitzt. Er sollte durch Hinzufügen eines solchen Feldes verschwinden.

- Euklid

[carli]

Ich denke mal eher, er hat die Prozedur global geschrieben und nicht als Member der Klasse.

Edit:
ok, der Quelltext ist i.o.
Da fehlt tatsächlich das Edit-Feld