datei öffnen

bigknaller · Beiträge: 39

bin ein newbie in sachen delphi und hab grad ein programm "Einkaufsliste" für meine mutter gecodet. da kann man die sachen auswählen, die man kauft und die werden dann in einer textdatei gespeichert. also, jetzt meine zwei fragen: wie kann ich die textdatei öffnen. und: wie kann ich die textdatei ausdrucken (Button: "Drucken").
thx im vorraus.

bis11 · Beiträge: 1247 Erhaltene Danke: 2 Apple Mac OSX 10.11

Hi,

Datei öffnen : OpenDialog1.Filename

Datei ausdrucken mit dem PrintDialog

Zu beidem gibt es ein Beispiel in der Hilfe.

bigknaller · Beiträge: 39

nein, kein opendialog. es soll gleich die textdatei geöffnet werden.
und drucken: wenn ich im printdialog auf ok klicke, kommt nichts.
thx

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Nimm einfach eine tStringList. Mit dieser ist das Arbeiten recht einfach:

markieren

Quelltext

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

Var
  SL: tStringList;
Begin
  SL := tStringList.Create;

  // Einträge hinzufügen
  SL.Add ('Äpfel');
  SL.Add ('Kartoffeln');

  // Speichern
  SL.SaveToFile ('c:\Einkaufsliste.txt');

  SL.Free;
End;

Damit erstellst Du eine Datei ("einkaufsliste.txt") mit zwei Zeilen.

Gruß
TINO

knightkiller · Beiträge: 35 WinXP SP2 D7 Pers, D2005 Pers

und um die Liste auszudrucken:

markieren

Quelltext

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

var sl : TStringlist;
    MyFile: TextFile;
    i : integer;
begin
  sl := TStringlist.create;
  sl.loadfromfile('C:\MeineDatei.txt');
  AssignPrn(MyFile);
  Rewrite(MyFile);
  for i := 0 to sl.count -1 do begin
    WriteLn(MyFile, sl[i]);
  end;
  if not printdialog1.execute then exit;
  System.CloseFile(MyFile);
  FreeAndNil(sl);
end;

gruss k_k

bigknaller · Beiträge: 39

danke erstmal, ich hab ja ne stringlist gemacht.dort werden erstmal alle zu erledigenden einkäufe in der stringliste gespeichert und die wird dann in einer textdatei gespeichert (wird die stringliste dann geleert???).
z.B:

markieren

Quelltext

1:	if edit1.text<>0 then liste.add(edit1.text);

und am ende wird dann ein savedialog geöffnet und die liste kann gespeichert werden.

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Dein IF-THEN-Anweisung wird nicht funktionieren. Edit1.Text gibt einen String zurück deshalb musst Du überprüfen ob der String leer ist und nicht ob er 0 ist:

markieren

Quelltext

1:	if edit1.text<>'' then liste.add(edit1.text);

Gruß
TINO

knightkiller · Beiträge: 35 WinXP SP2 D7 Pers, D2005 Pers

die Stringlist kannst du so leeren:

markieren

Quelltext

1:	liste.clear;

Arakis · Beiträge: 344

bigknaller hat folgendes geschrieben:

dort werden erstmal alle zu erledigenden einkäufe in der stringliste gespeichert und die wird dann in einer textdatei gespeichert (wird die stringliste dann geleert???).

Nein, sie wird nicht geleert.(Ist auch gut so)

Bis dann
user defined image

_________________
Mit dem Computer löst man Probleme, die man ohne ihn nicht hätte.
Entwickler von SpaceTrek: The New Empire - Siehe Hompage!

bigknaller · Beiträge: 39

Tino hat folgendes geschrieben:

Dein IF-THEN-Anweisung wird nicht funktionieren. Edit1.Text gibt einen String zurück deshalb musst Du überprüfen ob der String leer ist und nicht ob er 0 ist:

markieren

Quelltext

1:	if edit1.text<>'' then liste.add(edit1.text);

Gruß
TINO

ja stimmt, so hab ich es ja auch (bin an einem anderen rechner, hab hier den quelltext net).trotzdem thx

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme