eine erklärung bitte

[adi_svadi]

kann mir mal einer ganz kurz diese unit erklären (so im groben). die steht in meinem buch (jetzt lerne ich delphi), bzw auf der cd dazu und soll die lösung von einem bsp sein. nur ich check da gar nix (rein gar nix)! bitte!

Delphi-Quellcode:

unit Unit1;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}


procedure TForm1.Button1Click(Sender: TObject);
var f:TextFile;
    i:Integer;
begin
  AssignFile(f,'c:\test.txt');
  ReWrite(f);
  for i:=0 to Memo1.Lines.Count-1 do
    WriteLn(f,Memo1.Lines[i]);
  closeFile(f);
end;

procedure TForm1.Button2Click(Sender: TObject);
var f:TextFile;
    s:string;
begin
  Memo1.Clear;
  AssignFile(f,'c:\test.txt');
  Reset(f);
  while not eof(f) do
  begin
    ReadLn(f,s);
    Memo1.Lines.Add(s);
  end;
  closeFile(f);
end;

end.

[edit=Luckie]Delphi-Code-tags eingefügt. Beim nächsten mal bitte selber machen. Danke. Mfg, Luckie[/edit]

[Robert_G]

Das muss dir keiner erklären.
Gehe den code von oben nach unten durch, jeden unbekannten Bezeichner schlägst du in der Hilfe nach.
Auf die Art weißt du beim nächsten Mal genau wo du suchen musst.

Es ist unmöglich, etwas zu lernen wenn man andere für sich denken lässt. ;)

[glkgereon]

nutze bitte die code-tags

[.delphi] [./delphi]

zum code:

button 1 schreibt den text von memo1 in eine datei, button 2 liest ihn wieder ein

geh es ganz systematisch durch, und guck in der delphi-hilfe

[Chegga]

Hi,

verwende bitte die Delphi-Tags. Also:
Beitrag editieren, deinen Code markieren, und dann Delphi-Code auswählen.

Und in deinem Buch ist da bestimmt alles erklärt.
Die werden dir wohl kaum einen Quell-Code geben,
zu dem nichts steht. :roll:

MfG Marc

[Edit] Ändere deinen Titel, die meisten User wollen gerne eine Hilfe/Erklärung :wink: . Also bitte einen aussagekräftigen Titel [/Edit]

[MisterNiceGuy]

Also im Groben gesagt, lässt der Button1 den Inhalt eines Memos speichern und der Button2 den Inhalt einer Datei in ein Memo laden.

[Matze]

Zitat:

Zitat von MisterNiceGuy

Also im Groben gesagt, lässt der Button1 den Inhalt eines Memos speichern und der Button2 den Inhalt einer Datei in ein Memo laden.

Was schon gesagt wurde. ;)

Kürzer fassen könnte man's auch so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.SaveToFile('c:\test.txt');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('c:\test.txt');
end;

[Luckie]

Ändere bitte noch den Titel deines Beitrages, so dass man gleich erkennen kann, um was es geht. Hilfreich ist es auch, wenn man seine Frage / Problem konkretisiert und dann zu jeder Frage / jedem Problem einen gesonderten Thread eröffnet.

Editieren kannst du den Topic Titel, in dem du deinen ersten Beitrag editierts. Danke.

[MaBuSE]

Zitat:

Zitat von adi_svadi

kann mir mal einer ganz kurz diese unit erklären (so im groben).

Meine Antwort ist als Kommentar im Quellcode

Delphi-Quellcode:

...
procedure TForm1.Button1Click(Sender: TObject);
var f:TextFile;                      // Variable für Textdatei
    i:Integer;                       // Schleifenvariable
begin
  AssignFile(f,'c:\test.txt');       // weist der Variablen einen Textdatei c:\test.txt zu
  ReWrite(f);                        // Textdatei wird geleert (gelöscht) und zum Schreiben geöffnet
  for i:=0 to Memo1.Lines.Count-1 do // für jede Zeile im Memo tue
    WriteLn(f,Memo1.Lines[i]);       // diese Zeile in Datei schreiben
  closeFile(f);                      // Datei schliessen, und damit Speichern beenden
end;

procedure TForm1.Button2Click(Sender: TObject);
var f:TextFile;                // Variable für Textdatei
    s:string;                  // Variable für gelesene Textzeile
begin
  Memo1.Clear;                 // Memo leeren (Inhalt löschen)
  AssignFile(f,'c:\test.txt'); // weist der Variablen einen Textdatei c:\test.txt zu
  Reset(f);                    // Textdatei wird zum Lesen geöffnet
  while not eof(f) do          // solange das Dateiende noch nicht erreicht wurde, tue
  begin
    ReadLn(f,s);               // Eine Zeile aus Textdatei in Variable s lesen (laden)
    Memo1.Lines.Add(s);        // Diese Zeile (variable s) am Ende des Textes im Memo anfügen
  end;
  closeFile(f);                // Datei schliessen, und damit Laden beenden
end;
...

Ach ja: Herzlich willommen in der DP ;-)

[Luckie]

Wie steht es in der Bibel:

Zitat:

Geb einem hungernden einen Fisch und er einen Tag zu essen, lehre ihm zu fischen und er hat sein Leben lang zu essen.

[MaBuSE]

Zitat:

Zitat von Luckie

Wie steht es in der Bibel:

Zitat:

Geb einem hungernden einen Fisch und er einen Tag zu essen, lehre ihm zu fischen und er hat sein Leben lang zu essen.

Luckie, Du wirst "off topic" ( OT ).

Aber ich will Dir antworten:
Ich will ja nicht, das er verhungert, bis er seinen 1. Fisch gefangen hat ;-)

Nur wenn ein Anfänger eine Frage stellt, und nur zu hören bekommt,
er soll in der Hilfe nachschauen, was er vieleicht ja schon mal versucht hat,
finde ich das nicht ganz richtig.

Wir haben alle mal angefangen.

[edit]
ps: wenn Du schon die Bibel zitiert, dann gib mal bitte die Stelle an.
(Meines Wissens kommt der Spruch nicht aus der Bibel ;-))
[/edit]

[noch'n edit]
Ich habe mal grad nachgeschaut, es ist ein Chinesisches Sprichwort.
[/noch'n edit]