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.

[DaFox]

Hi,

ich kann mit dieser Schreibweise absolut nichts anfangen! Bin wohl zu alt dafür! :wink:
Aber Robert hat hier mal einen guten Kommentar zu einem Vorgänger, der gleiches gemacht hat, abgelassen: Schreib' das inverse Programm und es ist nicht mehr unnütz -> Spamerkennung.

Gruß,
Markus

PS: Achso, das Programm funktioniert wohl! :stupid:

[Birzenbae]

inverse bin ich noch am tüffteln da das etwas schwerer is

[hummer]

Aber nimm einen anderen Titel. Darunter kann sich keiner was vorstellen.

[Birzenbae]

So ich hab mich der Herausforderung gestellt und einen umkehrprozess hinzugefügt und nein ich werd keinen andern titel nehmen der gefällt.
Den Download gibts oben.

[Matze]

Doch, du wirst einen anderen Titel nehmen, ändere ihn bitte unverzüglich. Danke.

[sakura]

Zitat:

Zitat von Birzenbae

So ich hab mich der Herausforderung gestellt und einen umkehrprozess hinzugefügt und nein ich werd keinen andern titel nehmen der gefällt.

Das hat nichts mit Deinem Willen zu tun, sondern mit den Regeln der Delphi-PRAXiS. Also bitte umgehend ändern.

...:cat:...

[Birzenbae]

So bitte jetzt zufrieden gefällt euch das besser.

[malo]

Zitat:

Zitat von Birzenbae

So bitte jetzt zufrieden gefällt euch 1337 Coder besser.

Ähm... ich will ja nix sagen, aber wenn man schreibt, man hat den Titel geändert, sollte man ihn auch geändert haben ;)

edit: schon gut, hat sich erledigt :)

[sakura]

Zitat:

Zitat von Birzenbae

So bitte jetzt zufrieden gefällt euch das besser.

:firejump:

...:cat:...

[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:

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

[Birzenbae]

hä?? wieso?? ich hab doch schon alles geregelt hab zwar noch exit befehl drinne aber es kommt keine fehlermeldung mehr un die dialogs öffnen sich nicht 2 mal