Problem beim bearbeiten von HTML Seiten

**mr.unbekannt**

Hallo an alle User!
Ich habe ein problem beim bearbeiten einer html datei! Mein Delphi gibt mir bei "rewrite" den E/A-Fehler 32 zurück. kategorie und rezeptname sind edit-felder, pfad ist ein einfacher string. Bitte um schnell Hilfe!

Mfg Mr.unbekannt

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.ErstellenClick(Sender: TObject);

var f:textfile;

begin

if listbox1.Items.IndexOf(kategorie.Text)=-1

then begin

        listbox1.Items.Add(kategorie.Text);

        createdir(pfad+kategorie.Text);

        end

else showmessage('Diese Kategorie bestand schon!');

filecreate(pfad+kategorie.Text+'\'+rezeptname.Text+'.html');

assignfile(f,pfad+kategorie.Text+'\'+rezeptname.Text+'.html');

rewrite(f);

writeln(f,'<HTML>');

writeln(f,'<HEAD>');

writeln(f,'</HEAD>');

writeln(f,'<BODY bgcolor="#AFAFAF">');

writeln(f,'<h1>'+rezeptname.text+'</h1>');

writeln(f,beschreibung.text);

writeln(f,'</BODY>');

writeln(f,'</HTML>');

closefile(f);

end;

**fkerber**

Hi!

Lass dir mal ausgeben, auf was für eine Datei du da "assignen" willst.
Stimmt dieser Pfad?

Ciao Frederic

**mr.unbekannt**

das programm erstellt den pfad und die datei nur er will sie nicht beschreiben! vieleicht ein andrer datei-typ?

**Speedmaster**

Gehört zwar nicht dazu aber...:
"Funktion des Programmes strikt von der Oberfläche Trennen"

**mr.unbekannt**

Zitat von Speedmaster:

Gehört zwar nicht dazu aber...:
"Funktion des Programmes strikt von der Oberfläche Trennen"

Wie meinst du das?

**DGL-luke**

Zitat von Speedmaster:

Gehört zwar nicht dazu aber...:
"Funktion des Programmes strikt von der Oberfläche Trennen"

Damit meint er, du sollst das ganze nicht im OnClick machen, sondern in einer eigenen prozedur bzw. Funktion.

**mr.unbekannt**

es ist nur ein normaler button der geklickt wird, gebe mal bitte ein beispiel an!

um 18:26: Kann mir mal jemand helfen????

[edit=alcaeus]Push-Beitrag mit diesem Zusammengefuegt. Pushen erst nach 24 Stunden! Mfg, alcaeus[/edit]

SChon mal was von Dateien sperren gehört? Wenn eine Datei geöffnet wird (u.a. durch FileCreate()), sollte man sie auch wieder schließen. Der Befehl dazu heißt FileClose.

**hanselmansel**

HiHo,

Du soll(te)st einfach nicht schreiben:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

//Do 

//something 

//with 

//a1

//, 

//a2 

//and 

//a3

end;

Sondern die Funkionalität in eine eigene Prozedur schreiben. Das ist (meines Wissens) der erste Schritt zu wiederverwendbarem Code. Gewöhn' dich schonmal dran, wenn du in dieser Richtung längere Zeit arbeiten willst.

Besser:

markieren

Delphi-Quellcode:

			 
procedure ZaehlerZuWertigkeit(Zeahler, Wert:TDynArrayOfInteger;Var Wertigkeit:TDynArrayOfInteger);

begin

//Do something with a1, a2 and a3

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ZaehlerZuWertigkeit(a1,a2,a3);

end;

MfG,

hanselmansel

P.S.: Eine plausible antwort scheint ja von Pistev gekommen zu sein! *freu*

**jfheins**

Desweiteren wäre ein Filestream sinvoller weil einfacher und ein Ressourcenschutzblock gehört auch drum

markieren

Delphi-Quellcode:

			Datei := TFileStream.Create('PfadZurDatei');

try

  // machwas z.B. mit .Read oder mit .Write

finally

  FreeAndNil (FileStream);

end;

// Mach was anderes

Problem beim bearbeiten von HTML Seiten

Problem beim bearbeiten von HTML Seiten

Re: Problem beim bearbeiten von HTML Seiten

Re: Problem beim bearbeiten von HTML Seiten

Re: Problem beim bearbeiten von HTML Seiten

Re: Problem beim bearbeiten von HTML Seiten

Re: Problem beim bearbeiten von HTML Seiten

Re: Problem beim bearbeiten von HTML Seiten

Re: Problem beim bearbeiten von HTML Seiten

Re: Problem beim bearbeiten von HTML Seiten

Re: Problem beim bearbeiten von HTML Seiten

Forumregeln

fkerber (CodeLib-Manager) Registriert seit: 9. Jul 2003 Ort: Ensdorf 6.723 Beiträge Delphi XE Professional	#2 Re: Problem beim bearbeiten von HTML Seiten 23. Jul 2005, 16:53 Hi! Lass dir mal ausgeben, auf was für eine Datei du da "assignen" willst. Stimmt dieser Pfad? Ciao Frederic Frederic Kerber
	Zitat

mr.unbekannt Registriert seit: 20. Jul 2005 Ort: Schwerin 152 Beiträge Delphi 7 Professional	#3 Re: Problem beim bearbeiten von HTML Seiten 23. Jul 2005, 16:56 das programm erstellt den pfad und die datei nur er will sie nicht beschreiben! vieleicht ein andrer datei-typ?
	Zitat

Speedmaster Registriert seit: 4. Mär 2005 Ort: Karlsruhe 535 Beiträge Delphi 2005 Personal	#4 Re: Problem beim bearbeiten von HTML Seiten 23. Jul 2005, 16:57 Gehört zwar nicht dazu aber...: "Funktion des Programmes strikt von der Oberfläche Trennen" Felix K. Zitat: Siehst du diesen Park da unten? Jeden Tag lernen sich leute kennen und verlassen einander, und du hast dein ganzes Leben Zeit darin zu gehen!
	Zitat

mr.unbekannt Registriert seit: 20. Jul 2005 Ort: Schwerin 152 Beiträge Delphi 7 Professional	#5 Re: Problem beim bearbeiten von HTML Seiten 23. Jul 2005, 16:58 Zitat von Speedmaster: Gehört zwar nicht dazu aber...: "Funktion des Programmes strikt von der Oberfläche Trennen" Wie meinst du das?
	Zitat

mr.unbekannt Registriert seit: 20. Jul 2005 Ort: Schwerin 152 Beiträge Delphi 7 Professional	#7 Re: Problem beim bearbeiten von HTML Seiten 23. Jul 2005, 17:14 es ist nur ein normaler button der geklickt wird, gebe mal bitte ein beispiel an! um 18:26: Kann mir mal jemand helfen???? [edit=alcaeus]Push-Beitrag mit diesem Zusammengefuegt. Pushen erst nach 24 Stunden! Mfg, alcaeus[/edit]
	Zitat

Phistev (Gast) n/a Beiträge	#8 Re: Problem beim bearbeiten von HTML Seiten 23. Jul 2005, 17:34 SChon mal was von Dateien sperren gehört? Wenn eine Datei geöffnet wird (u.a. durch FileCreate()), sollte man sie auch wieder schließen. Der Befehl dazu heißt FileClose.
	Zitat

jfheins Registriert seit: 10. Jun 2004 Ort: Garching (TUM) 4.579 Beiträge	#10 Re: Problem beim bearbeiten von HTML Seiten 23. Jul 2005, 17:45 Desweiteren wäre ein Filestream sinvoller weil einfacher und ein Ressourcenschutzblock gehört auch drum markieren Delphi-Quellcode: Datei := TFileStream.Create('PfadZurDatei'); try // machwas z.B. mit .Read oder mit .Write finally FreeAndNil (FileStream); end; // Mach was anderes
	Zitat