Backspace

[Fantasia]

Hallo zusammen!

Ich bin noch sehr neu in diesem Forum, daher "blutiger Anfänger", wenn ich mich mal irgendwie kategorisieren sollte

Zu meiner Frage:

Ich arbeite momentan an einem Projekt, bei dem ich auf Eure Hilfe angewiesen bin (Recherche hat bisher leider nichts Brauchbares ergeben)!
Es geht um die Aufgabe, per Klick auf ein Image, Button und co. den letzten Buchstaben/ die letzte Zahl eines Labels (beliebige Buchstaben/Zahlenfolge und -anzahl) zu löschen (prinzipiell die Funktion, die sonst die "Backspace"- Taste übernimmt). Ich hab zwar schon einiges von 'vorgefertigten' Prozeduren gelesen, die Wörter zählen können oder auch fest definierte Teile eines Edit-Feldes markieren, eine Lösung für das beschriebene Problem aber leider noch nicht gefunden.

Vielen Dank für Eure Unterstützung!

Fantasia

[Komoluna]

versuch mal Copy:

Code: Alles auswählen

s := Copy(s, 1, Length(s)-1);

s ist der Text den du bearbeiten willst.

MFG

Komoluna

[Fantasia]

Hallo Komoluna,

vielen Dank für die schnelle Antwort!

Genau so etwas habe ich gesucht, dann zählt 'Lenght(String)' wahrscheinlich immer die Buchstaben eines Textes...

Beste Grüße
Fantasia

[Komoluna]

Richtig, der Befehl Copy nimmt 3 Parameter:
1. der Eingangsstring
2. die Position des ersten Zeichens das kopiert werden soll
3. die Anzahl Zeichen die kopiert werden sollen

Mein Beispielcode sagt also: "Kopier vom String s alle Zeichen außer dem letzten"

MFG

Komoluna

[creed steiger]

nurmal so als Auszug der ganzen Stringmanipulation:

http://www.freepascal.org/docs-html/rtl ... elete.html

http://www.freepascal.org/docs-html/rtl ... ength.html

http://www.freepascal.org/docs-html/rtl ... /copy.html

http://www.freepascal.org/docs-html/rtl/system/pos.html

http://www.freepascal.org/docs-html/rtl ... nsert.html

[Developer CPS]

Ich denke, es geht noch einfacher:

Code: Alles auswählen

s := s[1..(length[s]-1)];

[Socke]

Ich denke, es geht noch einfacher:

Code: Alles auswählen

s := s[1..(length[s]-1)];

Sofern Length(s) > 0 ist, funktioniert auch deine Variante. Die Variante mit Copy() hat den Vorteil, dass bei Length(s) = 0 ein Leerstring zurückgegeben wird.

[SoE]

Hi ihr Anfänger... grins... wieso sagt keiner AnsiLastChar ????

@Fantasia:
Ich komm' zwar von D7 aber Lazarus kennt auch AnsiLastChar. Das eignet sich super um von mehreren Komponenten die Sender Variable auszuwerten:

If AnsiLastChar(TButton(Sender).Name) = '1' Then ShowMessage('Button 1 wurde gedrückt');

oder

AnsiLastChar('Text');

oder

If AnsiLastChar('Fantasia') = 'a' Then ShowMessage('Volltreffer');

usw. usw. usw. ....

OK, ich sollte nicht nur das Fettgedruckte lesen...
Edit: Schau dir mal "Delete" an !!!

Code: Alles auswählen

 
// Label1 löschen mit Backspace...
// KeyPreview auf True von Form1
 
Procedure TForm1.FormCreate(Sender: TObject);
 Begin
  Form1.DoubleBuffered := True;
 End;
 
Procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
 Var
  s : AnsiString;
 Begin
  If Key = Chr(8)
  Then
   Begin
    s := Label1.Caption;
    Delete(s,Length(s), 1);
    Label1.Caption := s;
   End;
 End;     
 

Code: Alles auswählen

 
// KeyPreview im Objektinspektor = True
// Uses Windows (+ Sound) hahaha... Backspace Delete
 
Procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
 Var
  s : AnsiString;
 Begin
  If Key = Chr(8)
  Then
   Begin
    s := Label1.Caption;
    If Length(s) = 0 Then Exit;
    Windows.Beep(800,30);
    Delete(s,Length(s), 1);
    Label1.Caption := s;
   End;
 End;            
 

oder so

Code: Alles auswählen

 
// wenn es zu sehr flackert, dann Form1.DoubleBuffered := True; im OnCreate der Form
 
Procedure TForm1.Button1Click(Sender: TObject);
  Var
   s : String;
 Begin
  s := Label1.Caption;
  SetLength(s, Length(s)-1);
  Label1.Caption := s;
 End; 
 

Code: Alles auswählen

 
// uses Windows, Form1 (im Objektinspektor KeyPreview auf True stellen)
// Komponenten: Form1 und Label1... dann löschen mit Backspace
// wenn es zu sehr flackert, dann Form1.DoubleBuffered := True; im OnCreate der Form
 
Procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 Var
  s : String;
 Begin
  If (Key = vk_Back)
  Then
   Begin
    s := Label1.Caption;
    SetLength(s, Length(s)-1);
    Label1.Caption := s;
   End;
 End;  
 

Code: Alles auswählen

 
// ohne uses Windows aber mit KeyPreview : True, Löschen mit Backspace
// wenn es zu sehr flackert, dann Form1.DoubleBuffered := True; (OnCreate)
 
Procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
 Var
  s : String;
 Begin
  If Key = Chr(8)
  Then
   Begin
    s := Label1.Caption;
    SetLength(s, Length(s)-1);
    Label1.Caption := s;
   End;
 End;
 

Unendliche Weiten.... ähmmm Möglichkeiten meine ich....

[Martin V]

Weil es verschiedene Stringtypen gibt (#0-terminiert, mit Längenbyte an der Stelle String[0]), ist es grundsätzlich ratsam, keine stringtyp-spezifischen Befehle wie dec (string[0]) zu schreiben (das funktioniert nur mit shortstring), sondern die allgemeinen String-Manipulationsfunktionen von Lazarus zu nehmen wie setlength, copy, insert, delete. Man kann dann später den Stringtyp verändern, ohne das Programm umschreiben zu müssen. Ausnahme: Wenn das Programm historisch gewachsen ist oder wenn es auf Geschwindigkeit ankommt.

[Fantasia]

Hallo!

Vielen Dank für die zahlreichen Antworten auf die eingangs gestellte Frage!

@ Creed Steiger: Ich habe mir mal die ganzen Stringmanipulationen durchgeschaut und wirklich einiges dazugelernt. Gerade solche Verweise sind aus meiner Sicht hilfreich, um immer mal wieder was dazuzulernen.

@ Developer CPS: Stimmt, ist aber nicht so spannend

@ SoE: Jetzt beginne ich auch mal, das mit den unterschiedlichen Stringtypen zu verstehen, das sind doch nicht so unkomplizierte "Texthalter" wie anfangs gedacht. Was ich aber noch nicht ganz verstehe ist, warum man denn überhaupt "ShortString" verwendet sollte, wenn man mit "AnsiString" auch die "255-Zeichen-Hürde" bequemstens umgehen kann...

Beste Grüße!
Fantasia

[SoE]

Hi,

@ Fantasia:
Nirgendwo steht geschrieben, dass man einen ShortString benutzen muss...
Aber ich kann dazu gar nichts Sinnvolles sagen, da ich nie einen Grund hatte einen solchen einzusetzen und deshalb hab' ich mich nie mit dem ShortString befasst.

Für mich war das immer ein Relikt aus den Tagen von Delphi 1...