Zeichen in Memo ersetzten und Formatierung beibehalten?!

[himitsu]

Außerdem 1 bis Count oder wohl eher 0 bis Count-1,
aber 0 bis Count ist definitiv falsch.

Wobei ihr froh sein könnt, dass Memo zufällig keine Exception wirft, wenn man auf nichtexistierende Zeilen zugreift. (gibt da nur einen Leerstring raus)

#13#10 = sLineBreak


Und wie Lucke ebenfalls nochmal erwähnte:
Wie sieht der restliche Code aus?
Denn die genannten Fehlermeldungen kommen nicht aus dem gezeigten Codestück.




@Delphi.Narium:
Falsch, Memo1.Lines.Text ist schneller, denn Delphi (und bestimmt auch Lazarus) leiten das direkt an das Memo und holen den kompletten Text mit Einmal ab oder weisen ihn direkt zu,
genau so wie bei Memo.Text

Der Zugriff auf Einzelzeilen (Lines[]) ist langsam, vor allem beim Ändern und wenn viel Text im Memo steht.

[KodeZwerg]

Hab Fehler gefixt, Danke himitsu.

[Rawsche]

Ich werde mal die Karten komplett offen auf den Tisch legen. Bitte nicht lachen, falls ihr eine bessere Methode kennt, aber ich versuche in ein Programm eine Art Verschlüsselung einzubauen und habe daher zu Testzwecken das folgende Programm geschrieben.

Delphi-Quellcode:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    ListBox2: TListBox;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    procedure Coding(var x: string);
    procedure Decoding(var x: string);

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Coding(var x:string);
var i:integer;
begin
  for i:=0 to listbox1.items.count-1 do
  if x=listbox1.items[i] then x:=listbox2.items[i];
end;

procedure TForm1.Decoding(var x:string);
var i:integer;
begin
  for i:=0 to listbox2.items.count-1 do
  if x=listbox2.items[i] then x:=listbox1.items[i]
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
  x:string  ;
begin
      for i:=1 to Length(Memo1.lines.text) do
      begin
        x:=coding(memo1.lines.Strings[i]);
        memo2.lines.Strings[i]:=x;
      end;
end;

end.

Anbei noch ein Bild meines Formulares.

Ich hoffe euch wird klar, was ich mir gedacht hatte. Ich würde, auch wenn es vielleicht einfacher geht, ungern anders vorgehen, weil ich gerade erst ins Verschlüsseln eingestiegen bin und gerne mit Tausch-Chiffrierung beginnen möchte.

Ich freue mich auf eure Ideen. Bitte berichtigt NICHT einfach den Code, sondern gebt mir vielleicht lieber Tipps, wie ich ihn selbst verbessern kann. Sonst lerne ich daraus leider nichts...


LG und Danke für die schon jetzt zahlreichen Antworten
Rawsche

[Luckie]

Und wieder fehlt der entscheidende Code: coding.

[Rawsche]

Schonmal Vielen Dank

[API]

...

[Rawsche]

Hi,

bis auf ein kleines Problem habe ich Fortschritte gemacht. Ich bin auf Funktionen umgestiegen. Der Text lässt sich umwandeln und auch wieder zurückwandeln.

Ein Problem tritt nur auf. Bei mir wird in der Verschlüsselung jedes Leerzeichen durch ein ß ersetzt. Jedes ß wird zum Leerzeichen.
Bei der Entschlüsselung ist es umgekehrt. Soweit alles geplant.

Leider tritt bei jeder Umwandlung von einem ß ein Fehler auf. Das ß wird nicht durch ein Leerzeichen ersetzt, sondern es bleibt ein ß, egal ob Ver- oder Entschlüsselung. Kann es sein, dass ein ß nicht mit einem ß verglichen werden kann oder dass ein bestehendes ß nicht durch ein Leerzeichen ersetzt werden kann?

Vielen Dank

Delphi-Quellcode:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    ListBox1: TListBox;
    ListBox2: TListBox;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    function Coding(x: string): string;
    function Decoding(x: string): string;

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

function TForm1.Coding(x: string): string;
var
  i: integer;
  y: string;
begin
  y := x;
  for i := 0 to listbox1.items.Count - 1 do
  begin
    if x = listbox1.items[i] then
    begin
      y := listbox2.items[i];
    end;
  end;

  Result := y;
end;

function TForm1.Decoding(x: string): string;
var
  i: integer;
  y: string;
begin
  y := x;
  for i := 0 to listbox2.items.Count - 1 do
  begin
    if x = listbox2.items[i] then
    begin
      y := listbox1.items[i];
    end;
  end;

  Result := y;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  i2: integer;
  x: string;
begin
  label2.Caption := '';
  memo2.Clear;
  for i := 0 to (Memo1.Lines.Count - 1) do
  begin
    label1.Caption := memo1.Lines.strings[i];
    for  i2 := 1 to length(label1.Caption) do
    begin
      x := label1.Caption[i2];
      x := coding(x);
      label2.Caption := label2.Caption + x;

    end;
    memo2.Lines[i] := (label2.Caption);
    label2.Caption := '';
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
  i2: integer;
  x: string;
begin
  label2.Caption := '';
  memo3.Clear;
  for i := 0 to (Memo2.Lines.Count - 1) do
  begin
    label1.Caption := memo2.Lines.strings[i];
    for  i2 := 1 to length(label1.Caption) do
    begin
      x := label1.Caption[i2];
      x := decoding(x);
      label2.Caption := label2.Caption + x;

    end;
    memo3.Lines[i] := (label2.Caption);
    label2.Caption := '';
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if edit1.text='ß' then showmessage('');
end;

end.

[Uwe Raabe]

Zitat von Luckie:

Und wieder fehlt der entscheidende Code: coding.

Wieso?

Zitat von Rawsche:

Delphi-Quellcode:

procedure TForm1.Coding(var x:string);
var i:integer;
begin
  for i:=0 to listbox1.items.count-1 do
  if x=listbox1.items[i] then x:=listbox2.items[i];
end;

[Luckie]

Zitat von Uwe Raabe:

Zitat von Luckie:

Und wieder fehlt der entscheidende Code: coding.

Wieso?

Zitat von Rawsche:

Delphi-Quellcode:

procedure TForm1.Coding(var x:string);
var i:integer;
begin
  for i:=0 to listbox1.items.count-1 do
  if x=listbox1.items[i] then x:=listbox2.items[i];
end;

Ups. Ich hatte eine Methode gesucht, die was mit einem String "macht", eben codiert, wie auch imner, und nicht irgendwelchen Code der was mit VCL Steuerelementen macht.

[Uwe Raabe]

OK, hier läuft was falsch:

Zitat von Rawsche:

Delphi-Quellcode:

      for i:=1 to Length(Memo1.lines.text) do
      begin
        x:=coding(memo1.lines.Strings[i]);
        memo2.lines.Strings[i]:=x;
      end;

Memo1.Lines.Text gibt den gesamten Text inklusive Zeilenumbrüche zurück. Memo1.lines.Strings[i] gibt aber die i-te Zeile zurück und nicht das i-te Zeichen.

Weiterhin

• erwartet coding einen variablen string, bekommt aber ein string-Property
• coding gibt keinen Rückgabewert, weswegen man es auch nicht einem x zuweisen kann