2. Form und Dateien schreiben

[hendy]

Moin erstmal
Also ich hab zwei Fragen/Probleme.

1. Wie kann man in .txt Dateien Daten schreiben und lesen?
2. Wie kann ich ohne viel Aufwand eine 2.Form zu meiner 1. hizufügen , die dann durch knopfdruck aufgerufen wird?

Wer mir helfen kann, bitte melden und danke im voraus

[Linkat]

Hallo hendy,
zu 1)
um Textdateien schreiben und zu lesen, gibt es mehrere Möglichkeiten. Ich benutze gerne StringListen, gleiches geht auch mit der ListBox und mit Memos. Schlaue dich in Büchern oder Tutorials auf.
Es geht aber auch ganz klassich mit z.B.

Code: Alles auswählen

AssignFile(f,s);
        Rewrite(f);
        write(f,i,j,k);
        CloseFile(f);

zu 2)
ein kleines Beispiel:

Code: Alles auswählen

var   Form2: TForm;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2:=TForm.Create(Application);
  Form2.Show;
  Form2.Caption:='Form2';
end;

Vielleicht konnte ich dir ein bischen weiterhelfen.
viele Grüße, Linkat

[Euklid]

Hallo hendy,

2. Wie kann ich ohne viel Aufwand eine 2.Form zu meiner 1. hizufügen , die dann durch knopfdruck aufgerufen wird?

Alternativ kannst du über das Menü "Datei-->Neues Formular" eine 2. Form hinzufügen.
In diesem Fall musst du in deiner Unit1, ganz oben im uses-Bereich, noch die unit2 deines 2. Forumlars hinzufügen.

Im Code lässt sich die Form dann durch

Code: Alles auswählen

Form2.Show

oder

Code: Alles auswählen

Form2.Showmodal;

aufrufen.

Viele Grüße, Euklid

[hendy]

Danke für die Antworten Linkat und Euklid
@ Linkat: das mit dem schreiben hab ich nicht verstanden, wofür sind die ganzen Variablen??
@ Euklid: danke für die kurze Einführung. Ich denke das geht mit jeder weiteren Form genauso, muss ich für einen Button in Form2 denn auch uses:unit1 hizufügen?
Gibt es auch eine "Hide" Funktion?

[creed steiger]

Danke für die Antworten Linkat und Euklid
@ Linkat: das mit dem schreiben hab ich nicht verstanden, wofür sind die ganzen Variablen??

http://www.freepascal.org/docs-html/rtl ... nfile.html" onclick="window.open(this.href);return false;

http://www.delphibasics.co.uk/RTL.asp?Name=AssignFile" onclick="window.open(this.href);return false;

[hendy]

Vielen Dank creed steiger

[Euklid]

@ Euklid: danke für die kurze Einführung. Ich denke das geht mit jeder weiteren Form genauso, muss ich für einen Button in Form2 denn auch uses:unit1 hizufügen?

Ja genau - jedoch sollte "uses unit1;" unter "implementation" geschrieben werden anstatt an die gewohnte Stelle, da sich ansonsten die Katze in den Schwanz beißt und es zu einem Compiler-Kurzschluss kommt (sprich: Fehlermeldung)

Viele Grüße, Euklid

[hendy]

sowas ähnliches hab ich beim Probieren auch gemerkt, danke nochmal

[hendy]

so nächstes Problem:
Wie kann ich in die Mitte einer Datei "springen" und da was schreiben?

[monta]

Wie hast du die Datei den geöffnet?

Es wird wohl darauf hinauslaufen, die Zeilen zu zählen um mittendrin was einzufügen.

[hendy]

ich hab erst die Datei mit Rewrite(), dann mit Append() geöffnet, bei Rewrite löscht er immer alles und schreibt dann neu

[creed steiger]

http://maxk.ma.ohost.de/tutorials/Dateizugriff.htm" onclick="window.open(this.href);return false;
http://www.delphi-treff.de/tutorials/datenspeicherung/" onclick="window.open(this.href);return false;
http://www.delphibasics.co.uk/Article.asp?Name=Files" onclick="window.open(this.href);return false;
http://ourworld.compuserve.com/homepage ... d/Dt2b.htm" onclick="window.open(this.href);return false;

[hendy]

danke creed steiger, du bist mein Retter