Memoeinträge auslesen

GBrainI · Beiträge: 18

Hallo,

Ich habe ein Edit-Feld, Memo-Feld, 2Buttons und ein Label.

per klick auf den ersten button wird der inhalt von dem edit feld in das label eingetragen je öfter mandrauf klickt desto mehr einträge entstehen und sie enstehen untereinander also zum beispiel so :;

Edit1
Edit1
Edit1
...

nun möchte ich mit dem 2ten button genau diese einträge in der selben formation (also untereinander) ins ein memofeld eintragen lassen quasi das er die nur übernimmt und dasselbe soll auch extzern in einer stinknormalen textdatei gespeichert werden.

Wer hat ne idee?

habs schon so probiert aber das hat mir nicht weiter geholfen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button2Click(Sender: TObject);
var liste: Tstringlist;
begin
memo1.lines.add(label1.caption);
liste:=TStringlist.Create;
liste.add(memo1.lines.Text);

liste.SaveToFile('text.txt');
liste.free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption := label1.caption + edit1.text +#10#13;
end;

-->2Probleme : im memofeld wird alles nebneinander abgebildet statt untereinander und des weiteren in meiner textdatei ist gar kein eintrag ...

Moderiert von Narses: Delphi-Tags hinzugefügt
Moderiert von Narses: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Fr 12.03.2010 um 16:54

platzwart · Verfasst: Fr 12.03.10 17:11

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button2Click(Sender: TObject);
var liste: Tstringlist;
begin
memo1.lines.add(label1.caption);
liste:=TStringlist.Create;
liste.assign(memo1.lines);
liste.SaveToFile('text.txt');
liste.free;
end;

...oder...

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.Button2Click(Sender: TObject);
var liste: Tstringlist;
begin
memo1.lines.add(label1.caption);
memo1.lines.SaveToFile('text.txt');
end;

_________________
Wissenschaft schafft Wissenschaft, denn Wissenschaft ist Wissenschaft, die mit Wissen und Schaffen Wissen schafft. (myself)

Marc. · Verfasst: Fr 12.03.10 19:29

Den Resourcen-Schutzblock nicht vergessen....

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

  liste := TStringlist.Create;
  try
    liste.assign(memo1.lines);
    liste.SaveToFile(ExtractFilePath(ParamStr(0)) + 'text.txt'); // evtl. auf IOResult testen
  finally
    liste.free;
  end;

...und warum bei Dateinamen der Pfad mit angegeben werden muss!

GBrainI hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:
2:
3:

[...]
liste.SaveToFile('text.txt');
[...]

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme