erstes zeichen in einem edit löschen

[guitar1]

hi,

hat jemand eine idee, wie man das erste zeichen in einem editfeld löschen, bzw. ändern kann, ohne das sich die restlichen zeichen ändern?
das ganze soll dann so aussehn, dass wenn man einen button anklickt das erste zeichen in dem edit gelöscht wird.

schon mal danke im voraus.

PS: ich programmiere noch nicht so lange, also wäre ich dankbar wenn ihr es einfach erklärt :-D .

[Zacherl]

Hi,

Delphi-Quellcode:

Edit1.Text := Copy(Edit1.Text, 2, length(Edit1.Text);

Florian

[mkinzler]

Delphi-Quellcode:

p: PChar;
...
p := PChar(s[2]);
s := p;

[fwsp]

Delphi-Quellcode:

var
  s: String;
  i: Integer;
begin
  s := Edit1.Text;
  Edit1.Clear;
  for i := 2 to Length(s) do
  begin
    Edit1.Text := Edit1.Text + s[i]; 
  end;
end;

[Zacherl]

Wieso einfach, wenns auch umständlich geht? :wink:

[fwsp]

vielleicht versteht er als "anfänger" dann aber die funktionsweise.
ne fertige funktion ist ja ganz toll, aber so hat er gleich ein paar mehr sachen verstanden. :zwinker:

[Zacherl]

Naja Copy ist ja auch nicht schwer zu verstehen ...

Copy(String, Begin, Länge): Kopiert Länge Zeichen von Begin ausgehend aus dem String "String" und gibt das Ergebniss zurück.

Zumal man in der Methode noch weitere Variablen (mindestens mal die Zählervariable) deklarieren müsste und eine Schleife auch schneller unübersichtlich wird als eine Funktion.

Florian

[fwsp]

ich hab nicht gemeint das copy() schwer zu verstehen ist, aber er versteht so nicht die generelle funktionsweise. wenn er das selber macht, muss er sich überlegen, wie das eigentlich funktionieren kann.

[Zacherl]

Mhh okey ... dann weiß er es nun :mrgreen: Verwenden sollte er trotzdem Copy.

Florian

[3_of_8]

Delphi-Quellcode:

var str: String;
begin
str:=edit1.text;
delete(str, 1, 1);
edit1.text:=str;
end;

KA ob das schneller ist als copy.