Konstante declarieren

[PeterKiers]

Hallo,

ich hab ein kleines Konstante-Problem.

Ich habe ein Programm, dass aus 2 units besteht.
In der 1. steht ein Prozedure:

Code:

Procedure TMainForm.CheckServer([b]const AServer: string[/b]);
var
  i: integer;
  str: string;
begin
  idIcmpClient1.OnReply := idIcmpClient1Reply;
  str:=AServer;
  Delete(str, 1, 2);
  idIcmpClient1.Host := str;
  for i := 1 to 1 do
  begin
  idIcmpClient1.Ping(str);
   end;
 end;

Jetzt möchte ich die Konstante const AServer: string auch im 2e unit benutzen!

Wie geht das, ist dass überhaupt möglich?

Peter Kiers

[Muetze1]

Moin!

Das ist in dem Sinne keine Konstante! Das ist ein Parameter für die Funktion und der "Const" davor gibt an, das die Procedure den Parameter nicht verändern kann. Somit kann sich der Aufrufer sicher sein, das die Variable die er der Procedure gibt, nicht verändert wird.

MfG
Muetze1