hi, ich möchte aus einem richedit alle unbekannten zeichen löschen, und den rest in ein zweites richedit kopieren...

ich hatte mir das so gedacht:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Los1Click(Sender: TObject);
var i,j:integer;
    Buchstaben, Zahlen, Interpunktion, Mathe, Sonderzeichen:set of char;
    zeichen:set of char;
begin
  buchstaben:= ['a'..'z','A'..'Z','ß','ä','Ä','ö','Ö','ü','Ü'];
  zahlen:= ['1'..'9'];
  Interpunktion:= ['.',',',':',';','!','?','-','_'];
  Mathe:= ['²','³','+','-','*','/','(',')','{','}','{','}','%','='];
  Sonderzeichen:= ['^','°','"','§','$','&','/','´','`','~','#','''','@','€','<','>','|',#13,' '];
  zeichen:= buchstaben + zahlen + interpunktion + mathe + sonderzeichen;
  for i:=0 to RichEdit1.Lines.Count-1 do
    for j:=0 to Length(RichEdit1.Lines[i]) do
      if RichEdit1.Lines[i][j] in zeichen
      then RichEdit2.Lines[i]:=RichEdit2.Lines[i]+RichEdit1.Lines[i][j];
end;

aber es gibt immer einen error...bei der if abfrage...

Hi!

Sagst du uns auch, welcher Error da kommt?


Ciao Frederic

öhh, moment...

Zugriffsverletzung bei der Adresse 00401DEC bei Lesen von Adresse FFFFFF

Hi!

dein [j] geht wohl zu weit. Mach da auch mal length(..)-1



Ciao Frederic

Deine innere For-Schleife habt üble Neben Effekte:

markieren

Delphi-Quellcode:

for j:=0 to Length(RichEdit1.Lines[i]) do
      if RichEdit1.Lines[i][j] in zeichen
      then RichEdit2.Lines[i]:=RichEdit2.Lines[i]+RichEdit1.Lines[i][j];

Du gehst Zeichen für Zeichen über den String RichEdit1.Lines[i] und änderst gleichzeitig RichEdit1.Lines[i].
Ich würde dir folgende Funktion aus der JCL empfehlen:

zusammenfalten · markieren

Delphi-Quellcode:

function StrKeepChars(const S: AnsiString; const Chars: TSysCharSet): AnsiString;
var
  Source, Dest: PChar;
begin
  SetLength(Result, Length(S));
  UniqueString(Result);
  Source := PChar(S);
  Dest := PChar(Result);
  while (Source <> nil) and (Source^ <> #0) do
  begin
    if Source^ in Chars then
    begin
      Dest^ := Source^;
      Inc(Dest);
    end;
    Inc(Source);
  end;
  SetLength(Result, (Longint(Dest) - Longint(PChar(Result))) div SizeOf(AnsiChar));
end;

Und damit kurz und knackig:

markieren

Delphi-Quellcode:

for j:=0 to Length(RichEdit1.Lines[i]) do
      RichEdit2.Lines[i]:=StrKeepChars(RichEdit2.Lines[i], zeichen);

also ich habs jetzt so gelöst:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Los1Click(Sender: TObject);
var i,j:integer;
    Buchstaben, Zahlen, Interpunktion, Mathe, Sonderzeichen:set of char;
    zeichen:set of char;
    temp, temp2:string;
begin
  RichEdit2.Clear;
  buchstaben:= ['a'..'z','A'..'Z','ß','ä','Ä','ö','Ö','ü','Ü',' '];
  zahlen:= ['1'..'9'];
  Interpunktion:= ['.',',',':',';','!','?','-','_'];
  Mathe:= ['²','³','+','-','*','/','(',')','{','}','{','}','%','='];
  Sonderzeichen:= ['^','°','"','§','$','&','/','´','`','~','#','''','@','€','<','>','|',#13];
  zeichen:= buchstaben + zahlen + interpunktion + mathe + sonderzeichen;
  temp:=RichEdit1.Text;
  for i:=0 to length(temp)-1 do if temp[i] in zeichen then temp2:=temp2+temp[i];
  for i:=length(temp)-2 downto 0 do
    begin
    if (temp[i]=temp[i+1]) and (temp[i]=' ') then delete(temp,i,1);
    if (temp[i]=temp[i+1]) and (temp[i]=#13) then delete(temp,i,1);
    end;
  RichEdit2.Lines.Add(temp2);
end;

aber das mit den doppelten Zeilenzmbrüchen löschen funzt nicht

Zitat von glkgereon:

also ich habs jetzt so gelöst:
...
aber das mit den doppelten Zeilenzmbrüchen löschen funzt nicht

Dein Code ist ja auch wieder falsch!!!

zusammenfalten · markieren

Delphi-Quellcode:

temp:=RichEdit1.Text;
  for i:=0 to length(temp)-1 do if temp[i] in zeichen then temp2:=temp2+temp[i];
  // das Ergebnis ist nun in Variable temp2

  // aber nun arbeitest du wieder mit temp (=die orginal-daten)
  for i:=length(temp)-2 downto 0 do
    begin
    if (temp[i]=temp[i+1]) and (temp[i]=' ') then delete(temp,i,1);
    if (temp[i]=temp[i+1]) and (temp[i]=#13) then delete(temp,i,1);
    end;
  // auch falsch: der geänderte Text wird an den bestehenden Text angehängt
  // richtig wäre RichEdit2.Lines.Text := ....
  RichEdit2.Lines.Add(temp2);
end;

Ich empfehle dir, unbedingt die function StrKeepChars zu verwenden. Vorteile

• auf Geschwindigkeit optimiert
• garantiert fehlerfrei, da gut getestet
• wiederverwendbar (dazu sind ja Proceduren & Funktionen da)
• erhöht die Lesbarkeit des Programmcodes

boah nee, (2mal)
nummer 1: boah nee, das will ich selbst hinkriegen
nummer 2: boah nee, schon wieder falsch???

ich hoffe ich kriegs nochma hin....