| Autor |
Beitrag |
Stuart
Hält's aus hier
Beiträge: 9
WindowsXP, Mandrake Linux
Delphi 7 Enterprise, Kylix 3
|
Verfasst: Mi 20.04.05 12:43
Hi Leute,
ich bin neu hier und schreib gerad mal hier meine erste frage hier rein. Ich programmiere gerad ein kleines Programm in dem ich ein Formular habe mit einem F1Book(ActiveX-Steuerelement). Eine schöne Tabelle wo man auch schön drin kalkulieren kann etc.
Wenn ich jetzt auf den Button "Tabelle Speichern" drücke soll die Tabelle quasi als Datei gespeichert werden und wenn ich das Programm dann neustarte und die alten Daten aufrufen will, soll bei dem Button "Tabelle einladen" die Datei die vorher gespeichert wurde direkt wieder eingeladen werden.
Frage von mir:
Geht das mit dem F1Book überhaupt?
---Bei memos ist das ja ganz einfach [memo1.lines.savetofile('c:\tabelle.txt');]
Wenn das geht, wie lautet der Quellcode?
Wäre euch sehr dankbar.
MFG
Stuart
|
|
w99427
Hält's aus hier
Beiträge: 12
Win NT
Delphi 4
|
Verfasst: Fr 13.05.05 09:41
bei mir genau die Problem.
also, gibts eine Procedure:
Savefiledlg(const pTitle:widestring; var pBuf:Widestring; var pFile Type:Smallint);
aber ich habe es nicht hingekriegen.
vielleicht jemand kann mir das erklären?
|
|
Lannes
 
Beiträge: 2352
Erhaltene Danke: 4
Win XP, 95, 3.11, IE6
D3 Prof, D4 Standard, D2005 PE, TurboDelphi, Lazarus, D2010
|
Verfasst: Fr 13.05.05 10:22
Hallo,
erstmal  Stuart w99427
so geht das:
1. Variablen anlegen
2. Dialog aufrufen, gewähltes wird in den Variablen gespeichert
3. Datei mit Hilfe der Variablenwerte speichern
Code:   Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| procedure TForm1.Button2Click(Sender: TObject);
var
aFile: widestring;
afiletyp: smallint;
begin
try
F1Book1.SaveFileDlg(PChar('Titel des Dialogs'),aFile,afiletyp);
F1Book1.write(aFile,afiletyp);
except
showmessage('Es wurde nichts gespeichert');
end;
end; |
oder ohne Dialog speichern:
Delphi-Quelltext
1:
| F1Book1.write(PChar('c:\temp\AusF1Book.xls'),F1FileExcel4); |
Mögliche Dateityp-Constanten:
Quelltext
1:
2:
3:
4:
| F1FileFormulaOne Formula One format
F1FileExcel4 Excel 4.0 format
F1FileExcel5 Excel 5.0 format
F1FileFormulaOne3 Formula One v.3 format | _________________ MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
|
|
w99427
Hält's aus hier
Beiträge: 12
Win NT
Delphi 4
|
Verfasst: Fr 13.05.05 11:49
Titel: Respect
Vielen Dank 1000 mal
I bin neu in Delphi aber muss in Praxissemeter eine größe programm schreiben.
es sieht so aus, dass ich muss jeden tag 8h hier lernen 
|
|
w99427
Hält's aus hier
Beiträge: 12
Win NT
Delphi 4
|
Verfasst: Fr 13.05.05 12:55
also, zu speichern gibts auch Openfiledlg();
aber ich habe wieder mal nicht hingekriegen, egal, mit Normale Opendialog funktioniert auch
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| procedure TForm1.Button2Click(Sender: TObject);
var
afiletyp: smallint;
begin
try
if opendialog1.Execute then
F1Book1.read(opendialog1.FileName,afiletyp);
except
showmessage('Es wurde nichts gespeichert');
end;
end; |
|
|
Lannes
Beiträge: 2352
Erhaltene Danke: 4
Win XP, 95, 3.11, IE6
D3 Prof, D4 Standard, D2005 PE, TurboDelphi, Lazarus, D2010
|
Verfasst: Fr 13.05.05 23:39
Hallo,
Du meinst doch sicher "also, zum öffnen gibts auch Openfiledlg" 
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure TForm1.Button1Click(Sender: TObject);
var aFile: widestring;
aFileTyp: smallint;
begin
try
F1Book1.OpenFileDlg('Titel des Dialogs',handle,aFile);
F1Book1.read(aFile,aFileTyp);
except
showmessage('Keine Datei ausgewählt');
end;
end; |
//Edit : Markier mal das F1Book, dann Taste F1, es gibt auch eine Hilfe zu der ActiveX-Komponente  _________________ MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
|
|
w99427
Hält's aus hier
Beiträge: 12
Win NT
Delphi 4
|
Verfasst: Mi 18.05.05 12:16
 Lannes hat folgendes geschrieben: |
//Edit : Markier mal das F1Book, dann Taste F1, es gibt auch eine Hilfe zu der ActiveX-Komponente |
Gut zu wissen. Dank!
|
|
