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...

:roll:

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:

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

Delphi-Quellcode:

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]

[Knotti2005]

Hää das geht doch es geht nur um die Überprüfung

Delphi-Quellcode:

  begin
  TcpServer1.LocalPort := edtLocalPort.Text;
  TcpServer1.Active := True;
  bitbtn1.Caption:= 'Senden';
  bitbtn1.Enabled:= true;
end;

Änderung:

Das andere läuft auch mithilfe dieses Codes Danke an euch allen...

Delphi-Quellcode:

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

[Luckie]

Zitat:

Zitat von Knotti2005

Was ist hieran falsch?

Die Überschrift deines Threads. Bitte wähle ein aussagekräftiges Topic. So langsam sollte man aber gemerkt haben, dass das hier üblich ist. :-? Zu dem sthet es im Kodex, den man gelesen haben sollte.

[MisterNiceGuy]

Ich hab jetzt keine Lust zu suchen, aber du hast einen ähnlichen Thread erstellt wo du exakt die gleichen Fehler gemacht hast...

Und warum willst du dir einen Zettel aus Klo hängen? Programmmierst du da? :P

Lösung:

Delphi-Quellcode:

TcpServer1.LocalPort := strtoint(edtLocalPort.Text);

Edit: Achja, hier ist der Thread. Fast gleicher nichtssagender Name des Threads, gleicher Fehler. Guck dir mal fkerbers Avatar an bitte.

[Luckie]

Und auch in dem Thread habe ich ihn auf den Threadtitel hingewiesen!