Fehler... aber warum...

[Knotti2005]

Was ist hieran falsch?

Delphi-Quellcode:

procedure TForm1.SpeichernClick(Sender: TObject);
begin
  if edtRemoteHost.Text:='' or edtremoteport.Text:='' or edtnickname.Text:='' or edtlocalport.Text:= ''
  then
    showmessage('Achtung mind. 1 Eingabe fehlt...')
  else
  begin
  TcpServer1.LocalPort := edtLocalPort.Text;
  TcpServer1.Active := True;
  bitbtn1.Caption:= 'Senden';
  bitbtn1.Enabled:= true;
end;
end;

Fehler...

Zitat:

[Fehler] Unit1.pas(107): Inkompatible Typen: 'String' und 'procedure, untyped pointer or untyped parameter'
[Fataler Fehler] Project1.dpr(6): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

[Christian Seehase]

Moin Knotti,

der erste Fehler der ins Auge fällt:

:= ist der Zuweisungsoperator und kein Vergleichsoperator.

Tausch den erst einmal gegen = aus

[Knotti2005]

Das mach ich jedesmal falsch...
Mal nen Zettel aufs Klo hängen...



Jetzt hab ich

[Fehler] Unit1.pas(104): Operator ist auf diesen Operandentyp nicht anwendbar

war da nicht nochetwas mit Klammern?

[Dax]

Einzelvergleiche gehören geklammert..

[pacman1986]

Und ich Glaub Port ist eine Integer Zahl kein Text oder irre ich mich da

[Knotti2005]

Es ist ein Editfehlt...

Wo ja eigentlich ne Zahl drinsteht trozdem heist es doch edit1.text oder...

[Dax]

Delphi-Quellcode:

if (edtRemoteHost.Text='') or (edtremoteport.Text='') or (edtnickname.Text='') or (edtlocalport.Text= '')
  then

[Matze]

Zitat von Knotti2005:

Es ist ein Editfehlt...

Wo ja eigentlich ne Zahl drinsteht trozdem heist es doch edit1.text oder...

Aber TcpServer1.LocalPort erwartet sicher einen Integer, darum zuerst mit StrToInt konvertieren.

[Knotti2005]

Wenn du Zeit hättest ich will dich nicht zwingen...

Könntest du mir das umschreiben bitte..

Mit dem Strtoin

Es geht halt darum das vorher geschaut wird das die EditBoxen nicht leer sind...

[pacman1986]

Jo Delphi sieht das immernoch als Text an das heißt man muss das schon in integer konvertiert werden ersetze deine zeile

Zitat:

TcpServer1.LocalPort := edtLocalPort.Text;

in
TcpServer1.LocalPort := strtoint(edtLocalPort.Text); [edit]
strtoint sagt dem programm das das doch kein text ist sondern eine zahl
in diesem Fall eine Ganzzahlige Zahl ich glaub von [phone] - -65000000
kann mich aber auch irren.
Für kommazahlen und größere Zahlen brauch mal real variablen.
(strtofloat)
[/edit]