Einzelnen Beitrag anzeigen

Sirlunchalot

Registriert seit: 6. Mär 2009
8 Beiträge
 
#6

Re: Laufendes Programm Speichern (savetofile)

  Alt 7. Mär 2009, 17:07
Mhm kann mir jemand mal einen Link zu einer Dp Seite geben in der erklärt wird, wie man in eine Datei speichert?
Ich möchte eine record Speichern keinen Text aus einer Edit-Komponente.
Mein Quelltext ist nach mehrmaligem Suchen und verbessern immernoch nicht Funktionsfähig.

Definition des record
Delphi-Quellcode:
type TSpielstand = record
      level : integer;
      name : string;
      str : integer;
      ausdauer: integer;
      konsti: integer;
      inti : integer;
      geschick: integer;
      quest: integer;
      end;
Variablendefinition
Delphi-Quellcode:
 var
  Form2: TForm2;
  spielstand: tspielstand;
  datei: file of tspielstand;
Definieren meiner Variablen (Da es eine Art Rollenspiel werden soll, sind die Variablen Attribute)
Delphi-Quellcode:
procedure TForm2.Button11Click(Sender: TObject);
begin
   spielstand.level:= erf;
  spielstand.str := str;
  spielstand.geschick := geschick;
  spielstand.konsti := konsti;
  spielstand.inti := inti;
  assignfile (tspielstand,'n.txt');
  rewrite ();
  append (spielstand);
  write (tspielstand, Spielstand.level, Spielstand.str, Spielstand.geschick, Spielstand.konsti, Spielstand.inti);
  closefile (tspielstand);
end;
Natürlich ist der Quelltext voller Fehler und nichtmal vollständig (siehe: rewrite()
Da ich allerdings noch nicht so lange Programmiere, habe ich auch nur wenig Erfahrung mit den ganzen Funktionen von Lazarus bzw Delphi.

Hoffe ihr könnt mir helfen bzw mir einen Link oder Lösungsansätze geben
Ich versuche gerne mir aus Formeln meine Lösung zu bilden.

Gruß
  Mit Zitat antworten Zitat