| Autor |
Beitrag |
crossit
Beiträge: 39
|
Verfasst: So 13.12.09 14:56
hallo liebe delphier,
habe folgendes problem wo ich nicht mehr weiter komme
unzwar habe ich mehrere edit felder welche ausgelesen werden sollen und dann in einer textdatei gespeichert werden sollen und dazu noch hochgeladen werden auf einen ftp server.
nun meine frage wie mche ich das mit dem auslesen?war natürlich nicht faul und habe selbst ein wenig rumprobiert jedoch scheiterte ich immer...
  Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| var
Liste : TStringlist ;
begin
Liste:=TStringList.Create;
Liste.Add('vorname:'+ vorname.text);
Liste.Add('Nachname:'+ nachname.text);
liste.Add('Datum:' + datum.text);
Liste.Add(' ')
Liste.Add('Übung:'+ putten.text);
Liste.Add(' ')
Liste.Add('1 Meter :' + treffer.text + '/' + 'insgesamt1.text);
...;
Liste.SaveToFile(putten_datei);
Liste.Free;
end; |
jedoch bekomme ich immer den fehler , dass er die edit felder nicht deklariert sind aber warum?
das mit den meter geht von 1 meter bis 3 meter nur zu info*
|
|
klezmor
Beiträge: 558
delphi 6 personal delphi 2005 personal
|
Verfasst: So 13.12.09 15:01
Könnte es sein, dass du nur den Text deiner Editfelder geändert hast und nicht den namen des Objektes an sich?
_________________ "Beware of bugs in the above code; I have only proved it correct, not tried it." Donald Knuth
|
|
Dude566
Beiträge: 1592
Erhaltene Danke: 79
W8, W7 (Chrome, FF, IE)
Delphi XE2 Pro, Eclipse Juno, VS2012
|
Verfasst: So 13.12.09 15:05
Das hätte ich jetzt auch vermutet, dass es trotzdem Edit1 statt Vorname und Edit2 statt Nachname ist.
_________________ Es gibt 10 Gruppen von Menschen: diejenigen, die das Binärsystem verstehen, und die anderen.
|
|
crossit 
Beiträge: 39
|
Verfasst: So 13.12.09 15:25
nene darauf habe ich geachtet^^ aber meine frage ist eher wie der code lauten müsste das es alles so klappt wie es soll
|
|
Gausi
Beiträge: 8554
Erhaltene Danke: 481
Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
|
Verfasst: So 13.12.09 15:28
Ist deine Prozedur, die du oben gepostet hast, eine Methode der Form, oder steht sie so alleine da?
Also steht da sowas procedure SpeichereListe; oder sowas procedure TMainForm.SpeichereListe;? Denn letzteres wäre richtig - muss dann natürlich auch in der Deklaration von MainForm oben eingefügt werden.
_________________ We are, we were and will not be.
|
|
crossit
Beiträge: 39
|
Verfasst: So 13.12.09 15:56
|
|
Gausi
Beiträge: 8554
Erhaltene Danke: 481
Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
|
Verfasst: So 13.12.09 16:11
Dann änder das mal.  _________________ We are, we were and will not be.
|
|
ffgorcky
Beiträge: 573
WIN XP/2000 & 7Prof (Familie:Win95,Win98)
|
Verfasst: So 13.12.09 16:22
Also musst Du dann nur diese Prozedur noch in Deiner Form als public dekalrieren:
Delphi-Quelltext
1:
2:
3:
4:
5:
| ...
public
procedure SpeichereListe();
end;
... |
Und dann natürlich auch bei Deiner Procedure den Form-Namen vorwegschreiben:
Delphi-Quelltext
1:
2:
3:
4:
| procedure TFormWieAuchImmerDuSieNennst.SpeichereListe();
begin
...
end; |
Damit müsste das gehen.
|
|
crossit
Beiträge: 39
|
Verfasst: So 13.12.09 16:34
erledigt und code sieht zur zeit so aus
Delphi-Quelltext
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:
| procedure tform1.putten_text;
var
Liste : TStringlist ;
begin
Liste:=TStringList.Create;
Liste.Add('vorname:'+ vorname.text);
Liste.Add('Nachname:'+ nachname.text);
liste.Add('Datum:' + spskinedit4.text);
Liste.Add(' ');
Liste.Add('Übung: kurzes und langes Putten' );
Liste.Add(' ');
Liste.Add(' kurzes Putten :');
Liste.Add('1,0 Meter: ' + M1.text+ '/' + M1G.text );
Liste.Add('1,5 Meter: ' + M15.text+ '/' + M15G.text );
Liste.Add('2,0 Meter: ' + M2.text+ '/' + M2G.text );
Liste.Add('2,5 Meter: ' + M25.text+ '/' + M25G.text );
Liste.Add('3,0 Meter: ' + M3.text+ '/' + M3G.text );
Liste.Add(' ');
Liste.Add('Langes Putten:');
Liste.Add(' ');
Liste.Add('5,0 Meter: ' + M5.text+ '/' + M5G.text );
Liste.Add('8,0 Meter: ' + M8.text+ '/' + M8G.text );
Liste.Add('10,0 Meter: ' + M10.text+ '/' + M10G.text );
Liste.Add('13,0 Meter: ' + M13.text+ '/' + M13G.text );
Liste.Add('15,0 Meter: ' + M150.text+ '/' + M150G.text );
Liste.SaveToFile('putten.txt');
Liste.Free; |
Delphi-Quelltext
1:
2:
3:
4:
| procedure TForm1.PuttuploadClick(Sender: TObject);
begin
putten_text;
end; |
jetzt kommt nur noch das hochladen dazu
frage : wie soll ich die datei hochladen? über idftp.put oder gibs da eine sichere variante? achja dann muss ich nochn paar ordner aufm ftpserver erstellen und in die einzelnen wechseln lassen code kommt gleich
|
|
Dude566
Beiträge: 1592
Erhaltene Danke: 79
W8, W7 (Chrome, FF, IE)
Delphi XE2 Pro, Eclipse Juno, VS2012
|
Verfasst: Mi 23.12.09 14:47
Lies dir mal das durch www.delphi-treff.de/...nternet/indy/page/4/ dann wirds auch was.
Oder du kannst auch ein PHP Scipt nutzen auf das deine Anwendung zugreift, dann musst du nicht die Logindaten des FTP im Programm eingeben. _________________ Es gibt 10 Gruppen von Menschen: diejenigen, die das Binärsystem verstehen, und die anderen.
|
|
