Operationen mit Zeichenketten

[DeddyH]

System.Insert

[Lin]

Danke für den Link.
Ich bekaum auch schon meine erste Idee und hier ist sie auch.

procedure TForm1.Button4Click(Sender: TObject);
var s,p,q:string;
begin
s:=Edit1.Text; hier ist meine nachicht
p:= Edit2.Text; hier ist die stelle
q:= Edit4.Text; [da gebe ich mein zeichen ein, dass hinzugefügt werden muss
Insert(q,s,StrToInt(p)) ;
end;

hab ich das richtig verstanden? in der Klammer von Insert wird zuerst das zeichen, dass hinzugefügt werden muss, dann mein string, und zum schluss die position...oda?
was hab ich falsch gemacht...?

[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?

[Sir Rufo]

Delphi-Quellcode:

Procedure TForm1.Button4Click(Sender: TObject);
var s,p,q:string;
begin
  s:=Edit1.Text;  // hier ist meine nachicht 
  p:= Edit2.Text;  // hier ist die stelle
  q:= Edit4.Text;  // da gebe ich mein zeichen ein, dass hinzugefügt  werden muss
  Insert(q,s,StrToInt(p)) ;
  Edit1.Text := s; // und hier wird es jetzt auch angezeigt
end;

Eine kleine Bitte: Setze den Quelltext doch auch bitte in Delphi-Tags (so wie ich das gemacht habe)