Forum: Algorithmen, Datenstrukturen und Klassendesign
by Grayknife,
1. Mär 2015
@SMO achso, es sind trotzdem Dateien die mit .txt enden, aber "anders" gelesen werden da sie über andere Funktionen aufgerufen werden, hier mit ini&so. So wie es sich anhört sollte ich TiniFile ausprobieren, das hat dann nichts mehr mit ..Stream.. zu tun?
@Perlsau, Ja vielleicht verstehe ich nicht auf Anhieb alles, aber ich versuche es zu verstehen und umzusetzen. Und wenn ich nachfrage, ist...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Grayknife,
1. Mär 2015
@Perlsau, ja Grundlagenwissen ist immer guuuut (y) ;)
@SMO, erstmal vielen Dank, für die ausführliche Erklärung! :D Tjaa, warum sich plagen.. -.-'' Da wir nichts anderes gelernt haben in der Schule ;) Und wenn ich etwas nicht verstehe, nehme ich das, was ich verstehe :D siehe z.b.:...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Grayknife,
1. Mär 2015
@Sir Rufo, okey, also einfach nur Reset(Speicher)? Aber das verstehe ich jetzt nicht :D Oder doch... also dann ändere ich jetzt den Code zu:
procedure TForm1.Speichern;
var Speicher: Textfile;
GesH:Integer;
begin
GesH:=0;
AssignFile(Speicher,'Speicher.txt');
Reset(Speicher);
Readln(Speicher,GesH);
GesZ:=GesH + GesZ;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Grayknife,
1. Mär 2015
Ahh, so schnell so viele Antworten :shock: :-D
Also:
@Uwe Raabe, Hier ein Ausschnitt von der Info über Borland Delphi: "Borland® Delphi® für Microsoft® Windows™ Version 10.0.2288.42451 Update 2 Copyright © 2005 Borland® Software Corporation." -> Also Version 10 !?
@himitsu, Sry, das war viel zu oberflächlich der Fehler: Das Programm lässt sich mit dem Debugger einwandfrei starten, Erst...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Grayknife,
28. Feb 2015
Hallo DPler,
Ich möchte gerne eine Variable mit Integerwert, also zb. einfach 14 extern in einer Textdatei speichern. Dazu habe ich folgende Prozedur entwickelt:
procedure TForm1.Speichern;
var Speicher: Textfile;
GesH:Integer;
begin
Try
Reset(Speicher,'Speicher.txt');