Ich hätte das jetzt so gemacht, aber so bekomm ich die Fehlermeldung: Not enough actual parameters:
In der
Unit mit dem Editorfeld:
Delphi-Quellcode:
procedure TForm1.NameÜbertragen(Sender: TObject);
begin
SpielerName:= edit1.Text;
end;
In der Highscore
Unit:
Delphi-Quellcode:
procedure TForm2.Button2Click(Sender: TObject);
begin
with ListView1.Items.Add do begin
Caption := Form1.NameÜbertragen;
Data:= Pointer(Versuche);
SubItems.Add(IntToStr(Integer(Data)));
end;
end;
Bei Form1.NameÜbertragen erscheint der Fehler.