Entwickler-Ecke :: Thema anzeigen - Memoeinträge auslesen

GBrainI - Fr 12.03.10 15:40
Titel: Memoeinträge auslesen

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:

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 - Fr 12.03.10 17:11

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...

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;

Marc. - Fr 12.03.10 19:29

Den Resourcen-Schutzblock nicht vergessen....

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! [http://www.delphi-library.de/viewtopic.php?p=499701] ;)

GBrainI hat folgendes geschrieben :

Delphi-Quelltext

1:
2:
3:

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

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!