Buchstaben an andere Stelle setzten

[Mariaki]

Das funktioniert i-wie nicht.
Es kommt immer bei

Code:

Delete(S,Index1, 1);

und

Code:

Insert(S[Index1], S, Index2);

der Fehler:
Unit1.pas(39): E2197 Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden :wall:

Außerdem: Ich habe nur Turbo Delphi und wenn man da in die Hilfe geht bekommt man Hilfe für C#, C++, Java und VB, aber nich für Delphi. Das Ist ein bisschen komisch aber es ist so. :pale:

[DeddyH]

Versuch es mal mit System.Delete und System.Insert.

[Mariaki]

Nee funkt net :?:

[nuclearping]

F1 ist dein Freund.

[DeddyH]

Zeig mal den Aufruf der Prozedur.

[Mariaki]

Zitat:

Zitat von nuclearping

F1 ist dein Freund.

wie obengesagt gibt es bei turbo delphi keine F1 hilfe für delphi sondern nur für C#, C++, Java, und VB

[nuclearping]

Dann ist Google dein Freund. ;)

Wo ist denn der Lerneffekt, wenn du dir alles vorkauen lässt?

[DeddyH]

Versuchst Du so etwas?

Delphi-Quellcode:

MoveChar(Edit1.Text,1,3);

Das geht nicht, das müsstest Du dann so machen:

Delphi-Quellcode:

var s: string;
begin
  s := Edit1.Text;
  MoveChar(s,1,3);
  Edit1.Text := s;

[Mariaki]

Delphi-Quellcode:

Var
 Text:string;
 Buchstabe:Char;
 Stelle1,Stelle2:Cardinal;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Text:=Memo1.Lines.Text;
  Stelle1:=1;
  Stelle2:=3;
  if (Stelle1 > Length(Text)) or (Stelle2 > Length(Text)) then
    Raise Exception.Create('Fehler');
  If Stelle2 > Stelle1 Then Inc(Stelle2);
  Buchstabe:=Text[Stelle1];
  Delete(Text,Stelle1,1);
  Insert(Buchstabe,Text,Stelle2);
  Memo2.Lines.Add(Text);
end;

Das ist der ganze Code. Das mit Stelle:=1 und Stelle2:=3 ist nur Beispielhaft.

[DeddyH]

Benenn Text mal um in z.B. sText.