Hallo, ich habe ein tolles Programm entworfen, und möchte es jetzt dazu bringen, meine Tipparbeit in einem neuen Format zu speichern. Ich freue mich über jede Antwort.

Hallo und hier im Delphi-Forum.de!

yogo hat folgendes geschrieben:

und möchte es jetzt dazu bringen, meine Tipparbeit in einem neuen Format zu speichern.

Ich glaube du musst uns schon etwas mehr verraten. Ansonsten können wir nur raten. Was genau macht Dein Programm? Was soll gespeichert werden?

Gruß
Tino

Also ich möchte einen Text in einem Memo mit einer Tabelle verschlüsseln. Meine Mutter hat mir nur sagen können, dass man eine menge Tippen muss.

Hallo,

yogo hat folgendes geschrieben:

Also ich möchte einen Text in einem Memo mit einer Tabelle verschlüsseln. Meine Mutter hat mir nur sagen können, dass man eine menge Tippen muss.

das verstehe ich jetzt nicht? Geht es dadrum das ganze zu verschlüsseln und dann wieder als (kryptischen) Text zu speichtern?
Wenn ja, dann sind es 2 Probleme, welche du unabhängig voneinander sehen musst 1. Verschlüsseln 2. Speichern.

Gruß
Klabautermann

hi,
wenn ich dich richtig verstanden haben wills du wissen wie man einen text verschlüsseln kann.
Dazu benötigt man folgendes:
1) Text
2) Irgendetwas zum zwischenspeichern
3) eine prozedur oder funktion die dir das macht

1 has de ja.
2 ist nur dann notwendig wenn du die daten zum beispiel verschlüsselt speichern wills, zb in ner datei oder so.
3. wenns sich um ne banale sache ahndelt einfach cäsar oder vigenere zahl, ich glaub mit suchfunktion findest ganzen quelltext davon

hoff mal war richtig verstanden


greetz cold

Also, dass versteh ich immer noch nicht. Ich soll also den Text, den ich verschlüsseln will, in ein Memo tippen und die Codierung herunterladen? Wenn dass der richtige Weg ist, bleibt die Frage offen, ob es nicht irgendwie kürzer geht. Ich versteh da nämlich Bahnhof. Könntest du mir dass ausführlicher erklären?

yogo hat folgendes geschrieben:

Also, dass versteh ich immer noch nicht.

So wirklich verstehe ich dich aber auch nicht.

yogo hat folgendes geschrieben:

Ich soll also den Text, den ich verschlüsseln will, in ein Memo tippen und die Codierung herunterladen?

Mit Codierung meinst du der verschlüsselte Text, oder? Um mit herunterladen meinst speichern, oder?

Gruß
Tino

Also, herunterladen, damit ist der Quelltext gemeint. Mein Ziel ist es, eine Tabelle zu schreiben(am besten), die etwa so aussieht: I=L, o=8, L=#, d=@ ....! Geht das nicht irgendwie?

yogo hat folgendes geschrieben:

Mein Ziel ist es, eine Tabelle zu schreiben(am besten), die etwa so aussieht: I=L, o=8, L=#, d=@ ....! Geht das nicht irgendwie?

wenn ich dich richtig verstehe will du ne tabelle die definiert welches zeichen in welches umgewandelt wird???

Es ist möglich so, doch ich finds rect umstaändlich und unsicher, da die codierung immer gleich bleibt. Für private zwecke langts jedoch

greetz cold

Ahh, ich verstehe, es langt für private Zwecke? Dann langt es wohl auch für mich. Ich hab so einen Quellcode schon mal irgenwo gesehen, aber ich weiss nicht wo. Bitte, sag wie es geht!!

Schau dir mal STRINGREPLACE an, damit kann man Zeichen durch andere ersetzen.

@yogo:
Ich habe das Gefühl, dass von dir erwartet wird, dass du es erstmal selbst versuchst.

Ein paar Stichwörter:
StringReplace (wie schon vorher erwähnt)
Array, Record (für die Zeichenumwandlungstabelle)
und eine hübsche For-Schleife

Mit den Stichwörtern sollte das Problem zu lösen sein.
Ich glaube nicht, dass jemand für dich die Umwandlungstabelle eintippt.

Vielen Dank! Ich versuchs erst mal so.

Der Versuch ist nicht geglückt. Vielleicht liegt es daran dass ich mit Delphi 3 arbeite? Wenn das der Fall ist, kannst du mir dann die 'StringReplace.dcu' oder wie die heisst.

Das steht in der Unit SysUtils. Ich weiß aber nicht, ob das auch D3 enthalten ist.
Ansonsten kannst du einen String auch wie ein Array durchlaufen.

Tipp: for i := 1 to length(stringvariable) do ....

Hi, was ist denn missglückt?
Welche Fehlermeldung wird denn ausgespuckt?

Ich habe noch eine einfachere Idee für dich.
Voraussetzung dafür ist, dass du das Wissen für eindimensionale Felder (Arrays) hast.

Unser Alphabet findet sich u.a. im ASCII ZEichensatz wieder.
Dieser Zeichensatz gibt für jede Ordnungszahl ein Zeichen her, von 0 bis - äh - irgendwas...
Praktisch so:


Die ganze Tabelle findest du mit Sucherei bei Google...
In Delphi gibt es den Befehl Ord(), der die die Ordnungszahl eines Zeichens liefert
und Chr(), der dir das zeichen einer Ordnungszahl liefert.

Mein Vorschlag wäre du bastelst dir eine solche ASCII Tabelle, mit anderen Buchstaben
für jede Ordnungszahl und speicherst sie in einen Array. Also z.Bsp. Zeichensatz[1] := 'z'...
Den Originaltext kannst du dann über Ord als Zahlen anzeigen lassen.
Diese Zahlen gibst du dann als Index für den Array an und shon kommen ganz andere Buchstaben raus.
Das x. Zeichen eines Strings erhältst du über variablenname[x].

Ansonsten sag genau, was dir fehlt, dann helfen wir dir nochmal.

Wie bring ich das jetzt in meinen Code ein? Kann ich das irgendwo hinschreiben? Mit i ist doch ein String oder ein Integer gemeint?

Schau bitte in die Hilfe von Delphi, da steht drinne von welchem Typ
die Zählvariable sein darf.

Zitat:

Zähler ist eine lokale Variable ordinalen Typs ohne Qualifizierer.

Wenn du dann nach ordinalen Typen suchst, findest du raus,
dass ordinale Typen aufzählbare Typen sind.
Damit entfällt ein String, denn es ist kein aufzählbarer Typ, ein Char im Gegenteil dazu schon.

Du müsstest es natürlich in die Prozedur schreiben, in der es angewandt werden soll.

Also ich blick jetzt nicht mehr durch. Das mit dem Zähler ist alsoein Weg aufzuzählen wie viele Fehler ich gemacht habe? Vielleicht nicht. Gibt es nicht noch einen anderen Weg, außer StringReplace?

Hier solls rein:


Also, es soll in die Button1 Click procedur hinein.
Ich möchte aus einem Memo den Text in ein anderes Memo hinein verschlüsseln.

Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt.