Text vor einem bestimmten Zeichen NICHT löschen

[Fallenzer]

Hallo und guten Tag,

ich würde von euch eine Möglichkeit erfahren, wie man den Text vor dem Zeichen '>' mit BACKSPACE nicht löscht.

Ich persönlich habe keine, deswegen kann ich auch keinen Code senden...

Sehr freuen würde ich mich auf schnelle Rückmeldungen.
Vielen Dank

[Fallenzer]

Am Anfang steht 'shell>' und alle Zeichen nach > , inklusive > , müssen unversehrt bleiben...

[DieDolly]

Wie oft kommt dieses shell> vor?
Wenn es nur einmalig vorkommt, such die Position mit Pos().

[p80286]

wie wäre es mit so etwas:

Delphi-Quellcode:

suchstr:='shell>';


p:=pos(suchstr,text);
if p>0 then delete(text,p,length(suchstr)-1);

Gruß
K-H

[DieDolly]

Zitat:

delete(text,p,length(suchstr)-1);

In dem Fall würde shell> mitgelöscht.

[Fallenzer]

Will ich aber nicht...

[DieDolly]

Dann würde ich sagen: arbeite etwas mit und ändere den Code, den du freundlicherweise zur Verfügung gestellt bekommen hast.

[Fallenzer]

Temporär habe ich folgendes versucht:

Delphi-Quellcode:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#08 then
  begin
    if length(Memo1.Lines[0])=6 then  key:=#0;
  end;
end;

key #08 ist BACKSPACE laut ASCII, die Länge des Stringes 'shell>' ist 6, und wenn diese Zahl erreicht wird, dann wird die BACKSPACE-Taste blockiert, sodass sich das dadurch nicht löschen lässt...

Für die Erste Zeile des Memos wäre es geschafft...

[IceBube]

Zitat von Fallenzer:

Temporär habe ich folgendes versucht:

Delphi-Quellcode:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#08 then
  begin
    if length(Memo1.Lines[0])=6 then  key:=#0;
  end;
end;

key #08 ist BACKSPACE laut ASCII, die Länge des Stringes 'shell>' ist 6, und wenn diese Zahl erreicht wird, dann wird die BACKSPACE-Taste blockiert, sodass sich das dadurch nicht löschen lässt...

Für die Erste Zeile des Memos wäre es geschafft...

Und Zeile 2 ist/sollte ..Lines[1] sein?

[p80286]

Zitat von DieDolly:

Zitat:

delete(text,p,length(suchstr)-1);

In dem Fall würde shell> mitgelöscht.

Ich werd es nie lernen ohne Debugger vergallopiere ich mich da immer.

@Fallenzer
warum willst Du unbedingt Backspace nutzen?

Gruß
K-H