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

zusammenfalten · markieren

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;

markieren

Delphi-Quellcode:

var
  idx: integer;
  s: string;
begin
  s := Edit4.Text;
  for idx := 1 to Length(s) do
    ShowMessage('An Stelle ' + IntToStr(idx) + ' steht ' + s[idx];
end;

Erscheint mir etwas einfacher.

das klappt nicht da kommt immer ein fehler den ich noch nicht gesehen habe

project1.lpr(20.1)Error: Can't create object file:project1.exe

???

Was könnte denn in meinem Programm der Fehler sein?

Wo hast Du meinen Code denn hingeschrieben? Anscheinend nicht unter TForm1.Button6Click.

[edit] Schau Dir Deine Variablen mal im Debugger an, dann siehst Du schon selbst, was da schief läuft. Nur mal als Tipp: innerhalb der Schleife steht auch Code, der nach außerhalb gehört, wie z.B. div. Zuweisungen. [/edit]

Ok das klappt jetzt ich hatte irgendwie noch was geöffnet.
Ja das ist viel einfacher.
Aber das mit den Eckigen Klammern kannte ich noch nicht
Aber den Fehler in meiner Schleife da kannste den vielleicht erkennen?

Siehe mein Edit.