My1337

[Birzenbae]

Heut hab ich aus purer Langeweile heraus ein ziemlich unnützes Programm geschrieben, es heißt My1337 und es kann Texte, die man geladen hat oder selbst eingegeben hat, in diese '1337-Schrift' umsetzten. Die umgesetzten Texte können danach auch noch abgespeichert werden.

Edit:HIER neue Version mit Umkehrverfahren.

[Birzenbae]

du bist wahrscheinlich genau zwischen den zwei post reingekommen hab zuerst unten post gemacht un dann oben editiert

[DellaM0rte]

Delphi-Quellcode:

OpenDialog1.Execute;
if not OpenDialog1.Execute then Exit;

bitte ersetzen durch

Delphi-Quellcode:

if OpenDialog1.Execute then
begin
  // Code wenn Datei gewählt wurde
end else begin
  // Code wenn Dialog abgebrochen (oder halt weglassen)
end;

So wie es bisher ist wird der Dialog zweimal aufgerufen.
Und solche "Exit" Befehle sind nicht immer ganz sauber...

[Birzenbae]

So hab ich grad gemacht und mir is aufgefallen das er beim dekodieren zahlen dekodiert, die eigentlich nicht dekodiert werden sollen werd ich im laufe des tages auch noch beheben.

[Birzenbae]

so jetzte hab ich auch das Problem mit den nicht zu dekodierenden Zahlen gelöst und beim save/opendialog war noch en fehler hab ich gleich behoben. Den Download gibts oben.

[phXql]

Zitat von DellaM0rte:

Delphi-Quellcode:

OpenDialog1.Execute;
if not OpenDialog1.Execute then Exit;

bitte ersetzen durch

Delphi-Quellcode:

if OpenDialog1.Execute then
begin
  // Code wenn Datei gewählt wurde
end else begin
  // Code wenn Dialog abgebrochen (oder halt weglassen)
end;

So wie es bisher ist wird der Dialog zweimal aufgerufen.
Und solche "Exit" Befehle sind nicht immer ganz sauber...

bitte um erklärung, warum exit nicht sauber ist...

[DellaM0rte]

Naja zunächst mal sieht man bei if-Strukturen besser wann was passiert, und wann nicht. Wenn man bei der ursprünglichen Konstruktion mal schnell noch eine Zeile anfügen will kann es passieren, dass man mit dem Exit übersieht, dass diese evtl gar nicht ausgeführt wird.

Außerdem sollte man bedenkten, dass ein Exit in einer try..finally-Anweisung nicht verhindert, dass der finally-Abschnitt durchlaufen wird.

Ansonsten ist die Einschätzung sicherlich eher subjektiv. (Aber auch ich kenne Situationen in denen ich nicht um ein Exit herum kam, doch meistens geht das seit ereignisorientierter Programmierung anders besser...)

[Birzenbae]

ich bin hier auch net ohne Exit ausgekommen habs auch anders versucht nur dann wenn man den dialog zum 2. mal öffnen wollte kam ne fehler meldung der code für save/open sieht jetzt so aus. am bsp. des Opendialog.

Delphi-Quellcode:

if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.Files.Strings[0])
else Exit;

falls es doch irgendwie anders geht bitte posten hab ja noch vielzu lernen.

[fkerber]

Hi!

Welche Fehlermeldung kam denn?


Ciao Frederic

[Birzenbae]

ka irgendwas mit address... weiss ich nichtmehr genau

[fkerber]

Hi!

Dann können wir dir leider nicht genau helfen.

Ciao Frederic