Code: Alles auswählen
Label1.Caption:=Insert(Label1.Caption,Length(Label1.Caption)-2,',');
Code: Alles auswählen
Label1.Caption:=Insert(Label1.Caption,Length(Label1.Caption)-2,',');
Code: Alles auswählen
insert(EinfügString, ZielString, Position);
Code: Alles auswählen
insert (',', Label2.caption, length(Label2.caption)-2);
Stimmt! Darum funzt auch dein Beispiel nicht, "Zielstring" ist nämlich var!
Code: Alles auswählen
var S:String;
begin
S:=Label1.Caption;
Insert(',',S,Length(S)-2);
Label1.Caption:=S;
end;
Code: Alles auswählen
procedure Insert(AControl: TControl; Index: integer);
Code: Alles auswählen
procedure TForm1.Button2Click(Sender: TObject);
var
S : String;
x : integer;
begin
S := Label1.Caption;
x := Length(Label1.Caption);
Label2.Caption := system.Insert(',', S, (x-2));
end;
Ohh Kinners!Adenos hat geschrieben: ↑Sa 22. Jan 2022, 15:51jetzt mache ich es ganz ausführlich:aber Lazarus meldet bei dem Komma nach dem S: Syntax error, ")" expected but "," foundCode: Alles auswählen
procedure TForm1.Button2Click(Sender: TObject); var S : String; x : integer; begin S := Label1.Caption; x := Length(Label1.Caption); Label2.Caption := system.Insert(',', S, (x-2)); end;
Hey winni, nicht schon wieder Halbwahrheiten verbreiten. Der zweite Parameter muss "var" sein, und ein Property kann man nicht als "var" einsetzen. Warum liest keiner theo's Beitrag?
Code: Alles auswählen
Error: Can't take the address of constant expressions
Code: Alles auswählen
procedure TForm1.Button2Click(Sender: TObject);
var
S : String;
x : integer;
begin
S := Label1.Caption;
x := Length(Label1.Caption);
Insert(',', S, (x-2));
Label1.Caption := s;
end;
Tja, Erster ist Erster! Silber und Bronze sind auch schön, interessieren aber keinen!