Alpha 0%

[3_of_8]

Gute Frage. Auf jeden Fall in einer Prozedur, in der die Form schon gezeigt wurde.

Seltsamerweise gehts bei TForm.OnShow auch nicht.

[CPP-Programmer]

Zitat:

Zitat von 3_of_8

So ists richtig:

Delphi-Quellcode:

var eingabetext: textfile;
    str: String;
begin
assignfile(eingabetext,'C:\data.txt');
rewrite(eingabetext);
str:=edit1.text;
write(eingabetext, str);
closefile(eingabetext);
assignfile(eingabetext,'C:\data2.txt');
rewrite(eingabetext);
str:=edit2.text;
write(eingabetext, str);
closefile(eingabetext);
end;

Und noch kurz hier zu. Ich hab jetzt das so wie hier oben gemacht. Aber er gibt immer einen e/o error oder so aus. Warum?
Warum geht diese Form.Onshow oder auch die ganz normale createform nicht?
Wie beendent man ein programm komplett? (Ich hab einen button erstellt und ihm einfach den befehl close; zugewießen [ach ja ich hab 2 formen])
Wie kann man ein programm so programmieren das es sich mit dem taskmanager oder auch anders nicht schließen lässt. Also das man es nicht normal beenden kann, sodass man dem formular folgen muss, wenn z.b dort ein button mit exit ist. Wie geht sowas?

P.s.: Wollt nicht soviele topics aufmachen! Ihr wisst schon.

[TheAn00bis]

1. Es funktioniert dann nicht, weil die Form noch nicht komplett erstellt wurde. Kannst z. B. das OnActive nehmen (hatte das Problem auch vor kurzem)
2. Wenn du von der Hauptform aus close aufrufst ist das Programm komplett beendet, ansonsten mit application.terminate, was aber den Nachteil hat, dass die Ereignisse, die beim Schließen der Formen ausgeführt werden sollen nicht ausgeführt werden.
3. gibts schon zu viele threads zu

Eigentlich für jede Frage neuen Thread + Suche benutzen ;)

[CPP-Programmer]

Okey mach ich. Aber soooo mit dem Quelltext den ich oben angegeben hab, hab ich das noch nicht so verstanden was ich damit machen soll. Was war da jetzt genau?

[3_of_8]

"er gibt immer einen e/o error" ist wohl kaum eine gute Fehlerbeschreibung. Wie wäre es, wenn du mal sagst, WO genau der Fehler auftritt (mit Haltepunkten eingrenzen) und welcher es genau ist.

[Cicaro]

Zitat:

Zitat von CPP-Programmer

Ahhh gut danke. Vielleicht noch kurz was dazwischen, was ist daran falsch

Delphi-Quellcode:

var eingabetext: textfile; 
begin
write(eingabetext, edit1);
rewrite(eingabetext, 'c:\data.txt');
close(eingabetext);
end;

Delphi-Quellcode:

var
  eingabetext:textfile; 
  MyString:String;
begin
  AssignFile(eingabetext,'c:\data.txt')
  Rewrite(eingabetext);
  WriteLn(eingabetext,MyString);
  CloseFile(eingabetext);
end;

So kenn ich das. Gehört aber nicht in den Thread hier.
// edit: ups die zweite Seite übersehen

[CPP-Programmer]

Zitat:

Zitat von CPP-Programmer

Zitat:

Zitat von 3_of_8

So ists richtig:

Delphi-Quellcode:

var eingabetext: textfile;
    str: String;
begin
assignfile(eingabetext,'C:\data.txt');
rewrite(eingabetext);
str:=edit1.text;
write(eingabetext, str);
closefile(eingabetext);
assignfile(eingabetext,'C:\data2.txt');
rewrite(eingabetext);
str:=edit2.text;
write(eingabetext, str);
closefile(eingabetext);
end;

Hab eher gemeint ob des so richtig ist, weil er mir immer einen e/o error ausgibt.

[3_of_8]

Ist wohl eher ein E/A Fehler. Und ich erkenne da keinen Fehler im Code. Also sei so nett und sag mir die Fehlermeldung.

[CPP-Programmer]

Ja E/A Fehler genau. Was passiert da genau? Wie beheb ich das?

*Soll ich nen Screens. machen von dem error?

[CG2003]

Zitat:

Zitat von CPP-Programmer

*Soll ich nen Screens. machen von dem error?

Das wäre zumindest für uns alle hier für die Fehlersuche hilfreich...