| Autor |
Beitrag |
DnC
 
Beiträge: 98
XP
Delphi 3,6,7,2005 PE
|
Verfasst: Mo 22.01.07 21:25
Klammer zuviel. Man kann keinen String mit nem Bool vergleichen, sry, mein Fehler.
Die letzte Version sollte gehen
|
|
marvin521993 
Beiträge: 172
|
Verfasst: Mo 22.01.07 21:29
ok ne fehlermeldung zeigt der jetz nich an aber der macht immer noch dis leerzeichen verschlüsseln
|
|
DnC
Beiträge: 98
XP
Delphi 3,6,7,2005 PE
|
Verfasst: Mo 22.01.07 21:31
hast du es so hier?
  Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
| procedure TForm1.Button1Click(Sender: TObject);
var a,b:Integer;
str:String;
begin
Memo2.Clear;
for a:=0 to Memo1.Lines.Count do
begin
str:='';
for b:=1 to Length(Memo1.Lines[a]) do
begin if (not(Memo1.Lines.strings[a][b]=' ')) then
str:=str + Chr(Ord(Memo1.Lines.Strings[a][b])+1)
else str:=str + Memo1.Lines.Strings[a][b];
end;
Memo2.Lines.Add(str);
end;
end; |
|
|
marvin521993
Beiträge: 172
|
Verfasst: Mo 22.01.07 21:34
ok ne jetz gehts danke schön
bis jetz macht er zwar immer nur um eins verschlüsseln selbst wenn ich drei in der combobox auswähle
was muss ichn da ändern damit dis richtig funktioniert weist du das?
|
|
DnC
Beiträge: 98
XP
Delphi 3,6,7,2005 PE
|
Verfasst: Mo 22.01.07 21:38
schau mal... ich hab doch vorhin mal geschrieben, dass man die 1 ersetzen muss... wie krieg ich den Status der Combobox raus?
bzw. wie krieg ich raus, was ich brauche? Antwort: erstmal im Objektinspektor die Eigenschaften durchgehen, ob man was gebrauchen kann.
Du würdest finden: Itemindex!
-1 steht für "keine Auswahl", 0 für das 1., 1 für das 2. und so weiter.
Wenn du mit 1 angefangen hast, musst du also schreiben:
Delphi-Quelltext
wohin ist klar, oder?
|
|
marvin521993
Beiträge: 172
|
Verfasst: Mo 22.01.07 21:41
ne sry das weiss ich nicht
|
|
DnC
Beiträge: 98
XP
Delphi 3,6,7,2005 PE
|
Verfasst: Mo 22.01.07 21:43
statt der 1, natürlich!
bis denne mal, ich mach jetzt aus (Schule-->lernen *gähn*)
|
|
marvin521993
Beiträge: 172
|
Verfasst: Mo 22.01.07 21:44
|
|
marvin521993
Beiträge: 172
|
Verfasst: Mo 22.01.07 21:49
Moment noch kurz eine frage hab ich noch
wenn ich zum beispiel 'delphi forum' verschlüsseln will, dann amcht der dis ja auch normal, wenn ich 1 auswähle
wenn ich aber 2 auswähle, dann nimmt der von '(Delphi=)Efmqij' schreibt der dann nur noch hin: fmqij das heist der nimmt den ersten buchstaben weg
|
|
marvin521993
Beiträge: 172
|
Verfasst: Mo 22.01.07 21:50
ach ne schuldige hat sich erledigt ich bin halt dumm sry
|
|
marvin521993
Beiträge: 172
|
Verfasst: Mi 24.01.07 16:06
Und wenn ich jetz machen will das der memo1change gleich den dann ins untere memo mit reinschreibt den verschlüsselten, muss ich doch schreiben:
for i := 1 to length(Memo1.Text) do
begin
Memo2.Text := Memo2.Text + char(ord(Memo1.text[i])+StrToInt(memo1.Text));
end;
end;
aber der macht dann fehler mit exception
|
|
Dragonclaw
Beiträge: 196
Windows Vista
Delphi 7 Prof.
|
Verfasst: Mi 24.01.07 16:40
Die Zeile ist ja auch falsch es muss
Delphi-Quelltext
1:
2:
3:
| if not (Memo1.Lines.strings[a][b]=' ') then
str:=str + Chr(Ord(Memo1.Lines.Strings[a][b])+1)
else str:=str + Memo1.Lines.Strings[a][b]; |
heißen.
Delphi-Quelltext
1:
2:
3:
4:
5:
| for i := 1 to length(Memo1.Text) do
begin
Memo2.Text := Memo2.Text + char(ord(Memo1.text[i])+StrToInt(memo1.Text));
end;
end; |
Hier ist das Problem das StrToInt.. Du hast sehr wahrscheinlich Buchstaben im Memo1 drinstehen, die können nicht in nen Integer umgewandelt werden.
|
|
ZeitGeist87
Beiträge: 1593
Erhaltene Danke: 20
Win95-Win10
Delphi 10 Seattle, Rad Studio 2007, Delphi 7 Prof., C++, WSH, Turbo Pascal, PHP, Delphi X2
|
Verfasst: Mi 24.01.07 16:52
_________________ Wer Provokationen, Ironie, Sarkasmus oder Zynismus herauslesen kann soll sie ignorieren um den Inhalt meiner Beiträge ungetrübt erfassen zu können.
|
|
