Operationen mit Zeichenketten

[DeddyH]

Wieso falsch gemacht? Was funktioniert denn nicht? Die Parameter sind jedenfalls in der richtigen Reihenfolge.

[Lin]

hmmm....ich weiß es nicht...
das seltsame delphi startet den program ohne fehlermeldung...aber wenn ich die stelle und das Zeichen eingebe und dann auf Knopf einfügen drücke macht er gar nichts...
bin icht ratlos..soll ich den Programm neu starten oder spielt das keine rolle...hab auch den quelltext überprüft....mir ist nichts aufgefallen was falsch sein kann...

[DeddyH]

Ist denn die angegebene Stelle auch kleiner als die Länge des Strings? Lies Dir die Hilfe zu Insert noch einmal ganz genau durch.

[Lin]

ja da die stelle beträgt nur 2 während der string 5 lang ist.
mir ist gerade was aufgefallen wenn ich den programm starte, ist in mein edit2 und edit3 wo die stelle angegeben werden muss die aufschrift Edit2 bzw. Edit3 zu lesen, wenn ich die lösche und durch 2 ändere, taucht bei der ereignisprotokoll 2 mal in rot:
Thread-ID:1868.Prozess Projekt1.exe(3088)
Thread-ID:3840.Prozess Projekt1.exe(3088)

hoffe das man damit was anfangen kann....

[DeddyH]

Das sind eben die Standardtexte, die die IDE automatisch vergibt (also der Name der jeweiligen Komponente). Hast Du denn zur Laufzeit einmal andere Werte eingegeben und damit getestet?

[Lin]

ja hab ich. ich hab sogar andere nachricht benutzt und auch andere stellen und zeichen...
in meinem Program hab ich auch eine length funktion die während des eintippens des wortes in edit1 die länge bestimmt und in edit3 wiedergibt. Köte der fehler entstanden sein, dass aufeinmal ein wort hinzugefügt werden soll oda spielt das keine Rolle?...
Ich werd mal den Quelltext eingeben vielleicht findest du mein fehler...
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
AnzahlZeichen: TButton;
Button8: TButton;
Button9: TButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
procedure Edit1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);

private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
S := Edit1.Text;
Delete(S, 1, 1);
Edit1.Text := S;
end;

procedure TForm1.Button2Click(Sender: TObject);
var s:string;
begin
s:= Edit1.Text;
delete (s,length(s),1) ;
Edit1.Text := s;
end;

procedure TForm1.Button3Click(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.Button4Click(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.Edit1Change(Sender: TObject);
begin

Edit3.Text:= Inttostr(length(Edit1.text));


end;

end.

tut mir leid für die umstände...
hab sogar ein muster für mein program wie es werden soll..wenn es dir hilft an was für ein program ich da pastle....

http://www.lessing-gymnasium.de/unte...rs/dpue120.htm

[DeddyH]

Häng doch entweder das Projekt als *.zip an oder benenne Deine Komponenten so, dass man auf deren Funktion schließen kann (bei btnDeleteFirstChar weiß ich, dass das erste Zeichen gelöscht werden soll, aber was soll bei Button24 passieren?).