Lazarus Prüfen ob irgendetwas in TEdit-Feld steht. Wie geht das?

Hallo Leute,

Ich versuche mich gerade an Lazarus und möchte mit IF Then etwas programmieren. Dazu möchte ich sozusagen scannen ob etwas in einem TEdit-Feld steht. Dies versuche ich mit volgendem befehl:

if TEdit.text = 'X'

Ist es möglich für das X etwas einzusetzen, dass sozusagen nichts bestimmtes in dem Feld stehen soll sondern das er scannt ob einfach irgendwas in dem Feld steht? Oder gibt es dafür vielleicht einen anderen Befehl?

1 Antwort

regex9

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Computer, programmieren, Informatik

17.01.2019, 21:37

Prüfe einfach, ob die Länge der Eingabe größer als 0 ist.

https://www.freepascal.org/docs-html/rtl/system/length.html

Wenn du sicherstellen möchtest, dass nicht einfach nur Leerzeichen eingetragen wurden, kannst du den eingelesenen Text zuvor mit Trim bearbeiten.

https://www.freepascal.org/docs-html/rtl/sysutils/trim.html

TheSkyDog203

Fragesteller

18.01.2019, 18:00

vielen Dank für die Antwort ;-D

Folgende Aufgabe:

Wir wollen ein Programm schreiben, welches eine Passwortabfrage simuliert. Der Nutzer soll drei Eingabeversuche haben und nach der dritten Falscheingabe eine Nachricht erhalten, dass der Account gesperrt wurde. Hinterlege das Passwort „InformatikistToll!“ in einer Variable im Code.

Ich habe angefangen, eine Variable für das Passwort zu machen und eine Variable für die Passworteingabe.

Dann

if Passwort = PasswortEingabe then
begin
  writeln(fertig halt)

Aber wie kann ich nach dem dritten Versuch das Ganze abbrechen lassen?

...zur Frage

Wo ist der Fehler in meinem Code?

Hallo, ich habe ein Problem, ich bin gerade in der Programmiersprache Lazarus am programmieren, ich mache gerade einen Stromkostenvergleichsrechner, nun mein Problem:

IF(realEvu1GeskMitTBonus<realEvu2GeskMitTBonus) Then Begin LBLSparen.Caption := realEvu1GeskMitTBonus-realEvu2GeskMitTBonus end;

(Bei den Fehlermeldungen steht : Error: Incompatible type for arg no.1: Got "Real", expected "TTranslateString")

Was ist daran falsch?

...zur Frage

Arduino und Visual Basic?

Hi,

ich habe folgendes Problem: Also, ich habe es geschafft mit VB, daten an meinen Arduino zu senden und der Arduino dann auf die Daten reagiert und Befehle ausführt. Ich sage einfach in VB Serialport1.write("A") und dann einfach im Arduino if(Serial.read() == 'A') {Irgend ein Befehl}

Das klappt auch Super!

Nur jetzt weiß ich nicht wie das anders herum gehen soll.

Ich habe es probiert indem ich dem Arduino sage: Serial.println("A"); Und in VB: if(Serialport1.readLine = "A") then

msgbox("Hallo")

end if

Doch dann hängt sich mein Programm auf.

Weiß wer von euch wie das gehen könnte?

Danke im Voraus!

...zur Frage

Mensch-ärgere-dich-nicht in Pseudocode?

Hallo Community. Ich schreibe demnächst eine Informatik-Klausur und habe als Übungsaufgabe unter anderem folgende Aufgabe bekommen:

Beschreiben Sie in Pseudocode den Vorgang des ersten Würfelns beim Mensch ärgere dich nicht, also vor dem ersten Raussetzen bis zum Ende des ersten Zuges! Nutzen Sie die Befehle: - würfeln (gibt eine Zahl zwischen 1 und 6 zurück), - raussetzen, - rücken(n) (verlangt als Parameter die Anzahl der Felder um die gerückt wird - weitergeben (wenn der eigene Spielzug beendet ist) sowie die aus Pascal bekannten Schlüsselwörter für Programmstrukturen (begin, end, if ... then ... else ... usw.)! Verwenden Sie die Variablen AZ für die aktuelle Augenzahl und i für die Nummer des Wurfes.

_________________________________________________________

Wir haben sowas ähnliches schonmal im Unterricht gemacht, ich habe aber wieder vergessen wie das nochmal ging. Kann mir jemand helfen?

(Ich erwarte nicht, dass mir jemand diese Aufgabe komplett löst, ich hoffe, dass mir jemand Lösungsansätze geben kann.)

Danke :)

...zur Frage

IF Funktion in excel auf mehrere Zellen anwenden?

Hallo,

Ich möchte wenn in einer Zelle etwas reingeschrieben wird das die darauffolgenden Felder zu Pflichtfelder werden. Dazu nutze ich aktuell folgende Formel.

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim zeile As Long, OK As Boolean

OK = True

For zeile = 1 To Tabelle1.Cells.SpecialCells(xlCellTypeLastCell).Row

If Worksheets("Tabelle1").Cells(4, 2).Value <> "" Then

If Worksheets("Tabelle1").Cells(4, 3).Value = "" Then OK = False 'Spalte C

If Worksheets("Tabelle1").Cells(4, 4).Value = "" Then OK = False 'Spalte D

If Worksheets("Tabelle1").Cells(4, 5).Value = "" Then OK = False 'Spalte E

If Worksheets("Tabelle1").Cells(4, 6).Value = "" Then OK = False 'Spalte F

If Worksheets("Tabelle1").Cells(4, 8).Value = "" Then OK = False 'Spalte H

If Worksheets("Tabelle1").Cells(4, 9).Value = "" Then OK = False 'Spalte I

End If

If Not OK Then

MsgBox "Drucken nicht möglich - nicht alle Pflichtfelder ausgefüllt"

Cancel = True

End If

End Sub

Nun möchte ich das die obige Formel von B4- B25 durchgeführt wird. Also das wenn in in B8 z.B. etwas reingeschrieben wird das dann die Zellen in B8 geprüft werden das dort in den anderen Feldern auch was reingeschrieben worden ist.
Wie würde ich das ganze hinbekommen?

Danke im Voraus

...zur Frage

bash script: prüfen ob man in richtigem verzeichnis ist?

will das quasi so haben aber wie prüfe ich da links die ausgabe von pwd ? :

if [AUSGABE VON pwd == "/home/user3/ordner"]; then

...zur Frage

NIKI der Roboter, Hilfe

Hallo zusammen :)

An alle, die sich ein bisschen mit programieren auskennen. Ich habe diesen Befehl beim Programierspiel "NIKI der Roboter" eingegeben:

IF vorne_frei THEN
BEGIN
 WHILE vorne_frei DO vor;
END;

IF NOT vorne_frei THEN
BEGIN
 WHILE NOT vorne_frei DO drehe_links;
END;

nun möchte ich wissen, wie ich machen kann, dass der Befehl sich immer und immer wieder wiederholt, sodass ich nicht auf den grünen Pfeil klicken muss.

Danke im Vorraus MBudgetOwn

...zur Frage

Excel Kontrollkästchen (checkbox) in VBA ohne zellenzuweisung?

Ist es in Excel möglich mit Visual Basic (Makro) den wert einer Checkbox abzurufen ohne diese mit einer Zelle zu verlinken? zB. Über den Namen der Checkbox welcher ja einzigartig sein muss? Ich habe den Namen in dem Feld oben links umbenannt, er beinhaltet Bindestrich, das scheint VBA auch nicht zu gefallen, gibt's da ne Lösung? Es sollte eine If Then Funktion sein «If RM-CKB1 = True Then..... » Vielen Dank im Voraus

...zur Frage

Bash Einzeiler if date then?

Ich suche nach einem Einzeiler der innerhalb eines Bash Scripts den Befehl bzw diese eine Zeile nur ausführt wenn ein bestimmtes Datum vorliegt.

Falls dies als Einzeiler nicht machbar ist, wie schaut dies als If then Schleife aus?

Also quasi wie der Befehl | at am Ende einer Zeile nur auf ein bestimmtes Datum bezogen. Ich hoffe ihr wisst was ich meine :)

...zur Frage

Javascript - leere Variable prüfen?

Ich habe die letzten Tage angefangen, mich mit Programmierung in HTML und Javascript zu befassen, die ersten Dinge sind auch gelaufen, aber jetzt stehe ich vor einem Problem, wo mir weder youtube noch Google Suche ein Ergebnis liefern konnten, das funktionierte, wahrscheinlich ist es trotzdem einfach aber ich komme nicht drauf:

Ich möchte eine Art Checkliste erstellen, aus einem Eingabefeld soll ein Text ins nächste freie Feld eingefügt werden, dazu muss ich (nach meinem Kenntnissstand, was ich bisher gemacht habe, und was funktionierte, ohne mich dazu zusätzlich belesen zu haben), über if... else Bedingungen nacheinander prüfen ob die vorherigen Felder (text1, text2, text3... jeweils eine eigene Variable) leer sind, um das dann entweder in das Feld einzufügen oder das nächste zu prüfen...
Wenn alle verfügbaren Felder gefüllt sind, soll beim Versuch, die Eingabe zu machen in einem extra Feld eine Meldung kommen "Liste voll", bei meinen bisherigen Versuchen, obwohl kein Feld belegt ist, springt das Programm sofort zu diesem Punkt, stellt also offensichtlich nicht fest, dass die Variablen der vorherigen Felder noch NICHT belegt sind

(Das gleiche soll dann passieren, wenn ein Punkt erledigt ist, jeweils über einen Button soll dieser Punkt entfernt werden und falls nachfolgende Felder belegt sind, diese jeweils nachrücken (also wenn das nachfolgende Feld belegt ist, den Inhalt dieser Variable übernehmen, sonst Variable leeren))

...zur Frage

Target.Address Fehlermeldung Laufzeitfehler "424": Objekt erforderlich?

Hallo,

ich verschiedene Befehle mit VBA realisieren, um eine Auswahlliste anzupassen. Zum einen sollen Zellen ausgeblendet werden, wenn eine bestimmte Zelle leer ist und daher ein ganzer Teil der Liste entfallen kann. Der Befehl sieht folgendermaßen aus:

Sub HdlZellenVerbergen()

If Target.Address = "$C$9" Then

If C9 = "" Then

Rows("164:195").Hidden = True

Else

Rows("164:195").Hidden = False

End If

End Sub

Da ich mich nun Hals über Kopf in VBA geschmissen habe und schon einige Male Internetrecherche betrieben habe, weiß ich nicht wo der Fehler liegt, da mir hier die Erfahrung fehlt. Der Fehler lautet wie in der Überschrift angegeben. Was muss ich machen, damit das ganze nun funktioniert.

Ein ähnliches Problem erwarte ich dann bei folgendem Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$C$8" Then

If [C8] = "x" Then [D22] = "y"

End If

End Sub

Auch hier wäre eine Hilfe super.

Vielen Dank im Voraus.

...zur Frage

Ubuntu Bash Shell Befehl zum Prüfen, ob ein Programm gerade ausgeführt wird?

Kennt jmd. einen Befehl, womit geprüft wird, ob ein bestimmtes Programm ausgeführt wird?

Hier das Programm dazu:

if prüfBefehl firefox then
  #befehl wenn true
else
  #befehl wenn false
fi

...zur Frage

VBA IF THEN Formel mit 2 Bedingungen?

Hallo,

ich würde gerne bei einem Programm eine IF THEN Formel Aufstellen mit 2 Bedingungen.

Die Formel sieht aktuell so aus:

IFTHEN(Schriftverkehr['GESRAB']>0, 'Endbetrag ' + '-' +FLOATTOSTRD(Schriftverkehr['GESRAB'],1) + '%' + ' aus' , ' ')

Die erste Bedingung ist wie hier zu sehen: x>0

Die zweite Bedingung soll nun sein: x<49

Also das gewünschte soll nur geschrieben werden wenn X in der Range von 0,1 bis 48,9 liegt. Bei 0 soll das Feld leer sein und bei 49 auch.

Wie würde die Fomel dann aussehen?

...zur Frage

Bei Java (Greenfoot) einen Befehl wiederholen ohne viel Schreibarbeit

Hallo Community, Ich muss für meinen Informatik-Kurs in der Schule mit "Greenfoot" arbeiten. Da muss ich die sogennante "Spinne"/"Tarantel" so programmieren, dass sie allen Hindernissen ausweicht.

Mein Code(leider auf Deutsch) : public void fliegeSuchen()

{

if (klatscheVorn()) {

linksDrehen();

schritt();

rechtsDrehen();

schritt();

}

else {

fuenfschritte();

fliegeFressen();

Obwohl es schwer erkennbar ist, ist es die Bedingte Anweisung "If .... then " nun möchte ich es so programmieren, dass sie sich beliebig oft wiederholt.

Meine Frage: Wie wiederholt man eine "If .... then" Anweisung BELIEBIG OFT

Danke schonmal im Vorraus! (Bitte Antwort mit Erklärung oder einfach gestalten) IIch bin nämlich noch Schüler und nicht der beste Programmierer!

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen