Quelltext für Text entsperren und Text verschlüsseln?

[ölöp78]

Hi, wollte fragen ob mir einer dabei helfen kann, wie solch ein Quelltext für das entsperren eines Textes auszusehen hat. Desweiteren bräuchte ich auch noch Hilfe beim Quelltext für das verschlüsseln eines Textes mit Cäsar.

[Torpedo]

Was meinst du mit "entsperren eines Textes"?

[Klaus01]

Hausaufgabe?
DelphiPraxis suche

Grüße
Klaus

[SirThornberry]

wie weit bist du denn bisher? An welcher Stelle kommst du nicht weiter?

[ölöp78]

Mit entsperren meine ich...ja wie erkäre ich das.

Na ja, miut Sperren meine ich immer ein Leerzeichen einzufügen. Also aus Hallo wird H a l l o.

Und das ganze halt rückgängig machen.

Na ja, ist nicht direkt eine Hausaufgabe. Der Lehrer meinte ich kann mich darüber ja ruhig schonmal schlau machen.

Bin noch nicht sehr weit. habe bisher halt selbst herausbekommen wie man Sperren macht, wie man spielgelt, wie groß in klein und klein in groß geht.

[SirThornberry]

letztendlich ist deine Aufgabe im Moment die Logic und die solltest du selbst lösen. Wenn jedes zweite Zeichen ein Leerzeichen ist und du dieses entfernen willst weißt du in dem sinne doch schon die Gesamtaufgabe. Dies musst du nur noch in die einzelschritte packen.

[Klaus01]

Leerzeichen entfernen, solltest Du das zufuß machen oder kannst
Du auch Delphi Funktionen benutzen.

StringReplace würde sich da anbieten.

zufuß etwa so:

Code:

  for i:=1 to länge Zeichenkette -1 do
    if zeichenkette[i] = ' ' then
       tue etwas
    else
       tue etwas anderes

Grüße
Klaus

[SirThornberry]

wobei der Ansatz von Klaus01 nur ein Ansatz ist. Denn Leerzeichen die sollen ja nicht generell entfernt werden sondern nur jedes zweite.

[ölöp78]

Habe das entsperren jetzt mit folgenden Ansatz ausprobiert, aber er zeigt immer wieder "inkompatible Typen" an, sowie "das private Symbol entsperren wurden deklariert, aber nie verwendet".

Delphi-Quellcode:

Procedure TForm1.Entsperren ( wort : string ; var entsperrtext : string);
var i:integer;
    l:integer;
Begin
l:= length(wort);
i:=2;

repeat
delete(' ',wort,i);
i:= i + 2
until i > l;
end;

[Gruber_Hans_12345]

Zitat:

Zitat von ölöp78

Habe das entsperren jetzt mit folgenden Ansatz ausprobiert, aber er zeigt immer wieder "inkompatible Typen" an, sowie "das private Symbol entsperren wurden deklariert, aber nie verwendet".

Delphi-Quellcode:

Procedure TForm1.Entsperren ( wort : string ; var entsperrtext : string);
var i:integer;
    l:integer;
Begin
l:= length(wort);
i:=2;

repeat
delete(' ',wort,i);
i:= i + 2
until i > l;
end;

wo zeigt er dir inkompatible Typen an?
mit "das private Symbol entsperren wurden deklariert, aber nie verwendet" meint der compiler, das du niergends die procedure entsperren aufrufst, und deshalb wird diese procedure vom compiler verworfen.

du hast noch das problem, das du mit deiner schleife über die länge des strings gehst, da du die länge am anfang bestimmst, aber diese wird ja während der schleife immer kürzer.

einfach wäre es, wenn du den text einfach in einen neuen string kopieren würdest, dann kannste eine einfache for schleife verwenden und bei kopieren der chars einfach jedes zweite zeichen auslassen