Operationen mit Zeichenketten

[Lin]

tut mir leid, dass es so lange gedauert hat, hab versucht als zip datei zu senden. Hat leider nicht geklappt wenn ich den Knopf Anhang verwalten drücke pessiert nichts...
ich hoffe ich konnte irgendwie weiter helfen. Ansonsten ist es halb so schlimm...

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Nachricht: TEdit;
    AngegebeneStelle: TEdit;
    LaengeDesTextes: TEdit;
    NeuerZeichen: TEdit;
    AnzahDerZeichen: TEdit;
    Loesche1ziffer: TButton;
    loescheLetzteZiffer: TButton;
    LoescheAngegebeneZiffer: TButton;
    FuegeDieZiffer: TButton;
    AllesZuKleinBuchstabe: TButton;
    AnzahlZeichen: TButton;
    LoescheAngegebenenZeichen: TButton;
    PalindromDa: TButton;
    PalindromJa: TRadioButton;
    PalindromNein: TRadioButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    ZuGrossBuchstabe: TButton;
    procedure NachrichtChange(Sender: TObject);
    procedure Loesche1zifferClick(Sender: TObject);
    procedure loescheLetzteZifferClick(Sender: TObject);
    procedure LoescheAngegebeneZifferClick(Sender: TObject);
    procedure FuegeDieZifferClick(Sender: TObject);
    procedure AngegebeneStelleChange(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Loesche1zifferClick(Sender: TObject);
var s:string;
begin
  S := Edit1.Text;      { TODO : S ist mein Nachricht, hier wird die erste Stelle gelöscht }
Delete(S, 1, 1);
Edit1.Text := S;
end;

procedure TForm1.loescheLetzteZifferClick(Sender: TObject);
var s:string;
begin
 s:= Edit1.Text;         { TODO : S ist mein Nachricht, hier wird die letzte Stelle gelöscht }
delete (s,length(s),1) ;
Edit1.Text := s;
end;

procedure TForm1.LoescheAngegebeneZifferClick(Sender: TObject);
var s,p:String;
begin
p:=Edit2.Text;
S:=Edit1.Text;
  Delete(S,StrToInt(p),1);
Edit2.Text:= p;
Edit1.Text:= S;
end;



procedure TForm1.FuegeDieZifferClick(Sender: TObject);
var s,p,q:string;
begin
  s:=Edit1.Text;
  p:= Edit2.Text;
  q:= Edit4.Text;
  Insert(q,s,StrToInt(p)) ;
end;


procedure TForm1.NachrichtChange(Sender: TObject);
begin
   Edit3.Text:= Inttostr(length(Edit1.text));
end;


end.