TMemo soll nicht auf "Enter" reagieren

[Eppos]

Hallo zusammen!

Mein Programm erstellt mir SQL-Befehle. Diese sollen in einer Zeile in einer TMemo oder TAdvMemo eingefügt werden.
Mein Problem ist jetzt folgendes, dass in meinem SQL-Befehl Enter-Zeichen hinterlegt sind, darauf reagieren die Memos.
Es soll der SQL-String aber in einer Zeile dargestellt werden.
Weiss jemand rat?

Vielen Dank!
Eppos

[BullsEye]

Evtl im OnKeyDown Event abfangen und als "leer" Belegen.

[Namenloser]

ich weiß nicht, ob ich dein Problem richtig verstanden habe, aber du könntest es so versuchen (ungetestet, gerade im Browser getippt):

Delphi-Quellcode:

function RemoveCharacters(const s: string; ForbiddenCharacters: set of char): string;
var
  i: integer;
  j: integer;
begin
  SetLength(result,length(s));
  j := 1;
  for i := 1 to length(s) do
  begin
    if not (s[i] in ForbiddenCharacters) then
    begin
      result[j] := s[i];
      inc(j);
    end;
  end;
  SetLength(result,j);
end;

Memo1.Text := RemoveCharacters(SQL,[#13,#10]);

[Eppos]

ich hatte eigentlich gehofft, in der Eigenschaft fündig zu werden
naja.
Danke, ich werde es mal ausprobieren!