Autor |
Beitrag |
master5
Hält's aus hier
Beiträge: 10
|
Verfasst: Mo 14.02.05 11:19
hi ich hab wieder mal ne frage
wie kann ich antworten aus einer liste laden
ich habs so gemacht:
Delphi-Quelltext 1:
| diagnose.loadfromfile ('C:Dokumente und EinstellungenMatthias SeidlDesktopprogrammierenDelphie'); |
aber das geht nicht!
ich dachte mir das das vieleicht daran liegt das ich in dieser textdatei die antworten so geschrieben habe:
man hastdu probleme
usw
usw
usw
hätte ich die antworten irgendwie anders schreiben sollen?
Moderiert von raziel: Delphi-Tags hinzugefügt.
|
|
jasocul
      
Beiträge: 6393
Erhaltene Danke: 147
Windows 7 + Windows 10
Sydney Prof + CE
|
Verfasst: Mo 14.02.05 11:28
Heißt die Datei wirklich so?
Nach C: fehlt doch bestimmt ein "\". Und du hast die Datei doch bestimmt nicht im Root-Verzeichnis von C. Oder etwa doch? Sowas macht man aber nicht. 
|
|
patrick
      
Beiträge: 1481
WIN2k, WIN XP
D6 Personal, D2005 PE
|
Verfasst: Mo 14.02.05 13:13
ich glaub auch nicht das der ordner
Dokumente und EinstellungenMatthias SeidlDesktopprogrammierenDelphie
heißt
bei delphi e ist das e falsch 
_________________ Patrick
im zweifelsfall immer das richtige tun!!!
|
|
Handycommander
      
Beiträge: 1054
Windows XP Pro, Vista
Visual Studio 2008
|
Verfasst: Mo 14.02.05 14:28
|
|
master5 
Hält's aus hier
Beiträge: 10
|
Verfasst: Mo 14.02.05 18:48
sorry jungs aber das funzt alles nicht
und das wegen dem ver zeichnis is nicht mir eingefallen sondern dor hat der computer das automatisch hingespeichert
es is wie verhext
vieleicht hab ich auch das protokoll zum laden verbokt mal sehen 
|
|
Handycommander
      
Beiträge: 1054
Windows XP Pro, Vista
Visual Studio 2008
|
Verfasst: Mo 14.02.05 19:09
Poste doch mal den ganzen Code. Dann kann man dir beim Fehlersuchen helfen 
|
|
patrick
      
Beiträge: 1481
WIN2k, WIN XP
D6 Personal, D2005 PE
|
Verfasst: Mo 14.02.05 22:16
master5 hat folgendes geschrieben: | sorry jungs aber das funzt alles nicht  |
hast du wirklich ALLES ausprobiert? 
master5 hat folgendes geschrieben: |
und das wegen dem ver zeichnis is nicht mir eingefallen sondern dor hat der computer das automatisch hingespeichert
|
der "computer" bzw dein programm macht eigendlich nur das was du ihm einprogrammiert hast. nicht mehr und nicht weniger.
master5 hat folgendes geschrieben: |
es is wie verhext
vieleicht hab ich auch das protokoll zum laden verbokt mal sehen
|
ok, ich geh mal in die hexenküche und hol meinen zauberstab und mixe ein paar tränke und du schreibst in der zeit deine komplette speicher und lade funktion ins forum.
//edit: kann es sein dass du nur ordner, aber keine datei angegeben hast? oder ist delphie die datei 
_________________ Patrick
im zweifelsfall immer das richtige tun!!!
|
|
master5 
Hält's aus hier
Beiträge: 10
|
Verfasst: Mi 16.02.05 10:51
sagen wir mal so fast alles
aber mir fällt einfch nichts mehr ein!!
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81:
| interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
type TForm1 = class(TForm) GroupBox1: TGroupBox; GroupBox2: TGroupBox; GroupBox3: TGroupBox; Button1: TButton; Button2: TButton; Edit1: TEdit; Panel1: TPanel; ScrollBar1: TScrollBar; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure ScrollBar1Change(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private public end; const dateiname = 'seelenklemptnerliste1a.txt'; sammelname = 'psychox.txt';
var Form1: TForm1; diagnose: tstringlist; nr: integer; psycho: tstringlist;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject); begin randomize; diagnose := tstringlist.create; try diagnose.loadfromfile ('C:Dokumente und EinstellungenMatthias SeidlDesktopprogrammierenDelphie'); except diagnose.add ('Keine Sprechstunde'); diagnose.add ('Praxis geschlossen'); diagnose.add ('Hilfe dir Selbst ich hab auch probleme') end; scrollbar1.min := 0; scrollbar1.max := diagnose.count -1; psycho := tstringlist.create; end;
procedure TForm1.Button1Click(Sender: TObject); begin panel1.caption := diagnose.strings[scrollbar1.position]; psycho.add (edit1.text); end;
procedure TForm1.Button2Click(Sender: TObject); begin nr := random (diagnose.count); end;
procedure TForm1.ScrollBar1Change(Sender: TObject); begin panel1.caption := diagnose[scrollbar1.position]; end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin try psycho.savetofile (sammelname); except showmessage ('Fehler beim speichern der Datei!'); end; end;
end. |
bitte hier ist der gesamte text
Moderiert von raziel: Delphi-Tags hinzugefügt.
|
|
Karlson
      
Beiträge: 2088
|
Verfasst: Mi 16.02.05 17:53
master5 hat folgendes geschrieben: | sagen wir mal so fast alles
aber mir fällt einfch nichts mehr ein!!
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81:
| interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
type TForm1 = class(TForm) GroupBox1: TGroupBox; GroupBox2: TGroupBox; GroupBox3: TGroupBox; Button1: TButton; Button2: TButton; Edit1: TEdit; Panel1: TPanel; ScrollBar1: TScrollBar; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure ScrollBar1Change(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private public end; const dateiname = 'seelenklemptnerliste1a.txt'; sammelname = 'psychox.txt';
var Form1: TForm1; diagnose: tstringlist; nr: integer; psycho: tstringlist;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject); begin randomize; diagnose := tstringlist.create; try diagnose.loadfromfile ('C:Dokumente und EinstellungenMatthias SeidlDesktopprogrammierenDelphie'); except diagnose.add ('Keine Sprechstunde'); diagnose.add ('Praxis geschlossen'); diagnose.add ('Hilfe dir Selbst ich hab auch probleme') end; scrollbar1.min := 0; scrollbar1.max := diagnose.count -1; psycho := tstringlist.create; end;
procedure TForm1.Button1Click(Sender: TObject); begin panel1.caption := diagnose.strings[scrollbar1.position]; psycho.add (edit1.text); end;
procedure TForm1.Button2Click(Sender: TObject); begin nr := random (diagnose.count); end;
procedure TForm1.ScrollBar1Change(Sender: TObject); begin panel1.caption := diagnose[scrollbar1.position]; end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin try psycho.savetofile (sammelname); except showmessage ('Fehler beim speichern der Datei!'); end; end;
end. |
bitte hier ist der gesamte text
Moderiert von raziel: Delphi-Tags hinzugefügt. |
Was ich gehighlighted habe ich schwachsinn
Arbeitest du zum ersten mal mit einem Personal Computer (wobei das doch beim MAC genauso ist...)? wenn ja, dann musst du dir mal ansehen wie Dateinamen zusammengebaut sind.
Du kannst eine Datei nicht einfach unter: 'Datei.txt' abspeichern. Woher soll der Computer wiessen in welchem Verzeichniss (Ordner) es gespeichert werden soll?
Wenn du ihn auf im Ordner dokumente und einstellungen speichern willst, muss du natürlich auch das mit angeben:
pyscho.savetofile('c:\soundso\pyscho.txt');
Beim laden siehts genauso aus.
|
|
master5 
Hält's aus hier
Beiträge: 10
|
Verfasst: Do 17.02.05 16:15
baer ich ahb doch denn pfad von der datei kopiert!
du weist schon wenn man auf eigenschaften geht dann steht dort der pfad und den hab ich kopiert  hab ich da nen fehler gemacht 
|
|
Karlson
      
Beiträge: 2088
|
Verfasst: Do 17.02.05 16:35
Du wirst doch wohl wissen wie ein Pfad auf einem Computer aufgebaut ist
Ist es denn zu schwer per hand, c:\deinordner\derordnerimordner\datei.endung einzutragen????
|
|
delfiphan
      
Beiträge: 2684
Erhaltene Danke: 32
|
Verfasst: Fr 18.02.05 00:30
Also ich tippe mal auf
"C:\Dokumente und Einstellungen\Matthias Seidl\Desktop\programmieren\Delphie\seelenklemptnerliste1a.txt"
Komisch. Du schaffst es, ein TStringList Objekt zu kreieren, du weisst was try..except..end ist, aber wie man einen Pfad angibt, weisst du nicht?
|
|
Karlson
      
Beiträge: 2088
|
Verfasst: Fr 18.02.05 00:43
Das ist allerdings sehr komisch...ich tippe auf massives Copy&Paste, Fremdunterstützung oder einfach nur bei dem Problem ein Brett vorm Kopf...
|
|
master5 
Hält's aus hier
Beiträge: 10
|
Verfasst: Fr 18.02.05 09:49
tja in diesen sachen bin ich halt nicht so gut hähä

|
|