Hallo
ich möchte gerne in einem Editfeld ABCDE schreiben.
Und dann auf Knopfdruck soll in einem message feld kommen:
1. Klick = A
2. Klick = B
3. Klick = C
4. Klick = D
5. Klick = E
hab das ganze mit einer Schleife probiert die erst links alles Löscht von meiner Position und danach soll das rechte gelöscht werden.
Aber irgendwie klappt das nicht
Delphi-Quellcode:
procedure TForm1.Button6Click(Sender: TObject);
var
string1,string2:string;
laenge,laengeneu,anzahl_Zeichen,anfangsposition,anzahl_Zeichen1,anfangsposition1,
anfangsposition2,anzahl_zeichen2,index1,index2
:integer;
begin
//Länge bestimmen
string1:=edit4.text;
laenge:=LENGTH(string1);
showmessage('Länge '+inttostr(laenge));
// Links löschen
For index2:=1 to laenge do
begin
index1:=1;
string2:=edit4.text;
anfangsposition1:=index1;
anzahl_Zeichen1:=index2-1;
delete(string2,anfangsposition1,anzahl_Zeichen1);
laengeneu:=laenge-index2+1;
showmessage(' BEI index2: '+inttostr(index2)+ ' string 2 IST:'+ string2 );
showmessage(inttostr(laengeneu));
anfangsposition2:=index2+1;
anzahl_Zeichen2:=laenge-index2+1;
delete(string2,anfangsposition2,anzahl_zeichen2);
showmessage('Ergebniss: '+string2);
end;
end;