Projekt hat exception-klasse external:sigsev ausgelöst

[jaenicke]

Zitat von lilmnm:

Delphi-Quellcode:

[..]
  // Liste der verfügbaren seriellen Ports abrufen
  portNames := getSerialPortNames;
  port := '';
  for i := 1 to Length(portNames) do
  begin
    if portNames[i] = ',' then
[..]

Meinst du vielleicht das?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBoxPorts.Items.CommaText := GetSerialPortNames;
  connected := False;
end;

Zitat von haentschman:

PS: wo ist getSerialPortNames deklariert und implementiert?

Das ist in Lazarus bzw. Synapse eine Funktion aus der Unit synaser, die er auch eingebunden hat.