Delphi/Lazarus Berrechnungen etc. beim Start der Anwendung ausführen?

Ich bin noch ein absouluter Anfänger in Delphi/lazarus... Ich wollte nun in meinem Programm direkt beim starten

var x:integer;

erstellen... das habe ich hinbekommen indem ich sie an dieser stelle im Quellcode eingefügt habe

{$R *.lfm}
 var x:integer;

aber wenn ich nun darunter

{$R *.lfm}
 var x:integer;
x:=random(100);

schreibe, funktioniert das ganze nicht mehr..... wenn ich das gleiche in eine "Klick funktion" oder wie man das nennt packe, klappt es. An welche stelle im Quellcode kann ich denn jetzt "Anweisungen" wie if etc. reinschreiben das sie direkt beim starten das programmes ausgeführt werden und nicht erst wenn man draufklickt etc. ???

2 Antworten

04.03.2016, 10:36

Hallo,

hast du, da du dich sehr für Lazarus bzw. Delphi interessiert (was ich persönlich sehr positiv finde), mal die einschlägigen Seiten dazu im Internet besucht?

Gib doch zu deinem Problem einfach mal bei Google "Lazarus Random" ein. Du wirst feststellen das es da eine Menge zu lesen gibt.

Hier kann ich auch sehr die Lazarus Projektseite und dessen gutes Wiki und Forum empfehlen.

Sollten dann noch Fragen auftauchen, werden Sie dir, mit Sicherheit, hier beantwortet.

Gruß Linubux

Erri2001

Fragesteller

14.03.2016, 17:14

Danke firefox... ein halbes Jahr am tippen und der Text ist weg. Hab das Problem aufjedenfall jetzt gelöst.

:D

0

03.03.2016, 20:08

Code für den Programmanfang muss man entweder in die Applikations-Quelldatei oder in einen Abschnitt "initialization" schreiben.

Ansonsten (von Pascal her) gehört vor die erste Anweisung ein "Begin" und hinter die letzte ein "end."

Ähnliche Fragen

Lazarus Insertion Sort?

Hi, ich habe als Hausaufgabe auf, dass ich einen Quelltext zusammenstelle der mit dem Insertion Sort funktioniert. Das ganze soll im Programm Lazarus funktionieren. Hab mal nh bisschen im Internet gegoogelt aber keinen Quellcode für Lazarus dafür gefunden.

Würde mich über Hilfe freuen :)

Wieso funktioniert der Code in Lazarus nicht?

Hallo, ich lerne gerade ein wenig mit Lazarus zu programmieren.

Ich möchte dabei Hotkeys programmieren, die man außerhalb von der TForm nutzen kann. Leider funktioniert das bei meinem Programm nicht, aber ich weiß nicht, was das Problem ist.

Code:

unit unit1;
{$mode objfpc}{$H+}
interface
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, LCLType, Windows;
type
  { TForm1 }
  TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
end;

var
  Form1: TForm1;
  HotkeyRegistered: Boolean;

implementation
{$R *.lfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  HotkeyRegistered := False;
  RegisterHotKey(Handle, 1, MOD_CONTROL or MOD_SHIFT, VK_NUMPAD1);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if HotkeyRegistered then
    UnRegisterHotKey(Handle, 1);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
  if (ssCtrl in Shift) and (ssShift in Shift) and (Key = VK_NUMPAD1) then
  begin
    ShowMessage('Hotkey wurde gedrückt!');
  end;
end;

end.

Weiß jemand, woran das liegt?

Wie kann ich eine TXT-Datei erstellen in Lazarus?

Zurzeit arbeite ich an einem Programm, welches unter Anderem Dateien erstellen und in diese anschließend schreiben können soll, aber die Dateien werden nicht einmal erstellt.

assign(f, getCurrentDir + 'TextFile.txt');

rewrite(f);

close(f);

f ist als Text in Var angegeben

Der Fehler, der dann kommt, ist "File not assigned"

Was mache ich falsch?

Zwei Delphi Formulare verbinden

Hallo,

Ich habe eine Frage bzgl. wie man zwei Delphi Formulare/Unit miteinander verbindet. Als Compiler verwende ich Lazarus.

Mein Problem ist aber nicht das eigentliche Einbinden, ich habe einfach Unit2 in der Uses-Klausel hinzugefügt und das hat eigentlich auch funktioniert, ich konnte also mit einem Button über Form2.Show dieses anzeigen lassen. Ich brauche in meinem Programm aber auch so etwas wie einen Home-Button. Also wieder Form1.Show, habe ich gedacht, hat aber nicht funktioniert. Was genau mache ich falsch. ich habe auch Unit1 in die Uses Klausel eingefügt, hat jedoch nichts verändert.

Ich hoffe, hier kann mir das jemand erklären, für mich ist es nämlich komplett unverständlich...

Danke schonmal im Vorraus!!!

Lg.

Schnelle Hilfe bei Lazarus Taschenrechner (nur +,-. : und x), Problem mit Variablen?

Ich sollte für Informatik einen einfachen Taschenrechner machen (also nur plus, minus, mal, geteilt). Vorgabe war auch, zwei Editfelder zu haben in denen man die Zahlen eingibt und vier Buttons, die eben für plus ... sind. Ich versuche seit fast 3Wochen das hinzukriegen, aber mir wird immer ein Fehler bei "var" angezeigt. Hat da jemand eine Lösung? Im Internet finde ich nur lange und komplizierte Quellcodes

Also wie soll das bei var richtig sein?

Einfaches Programm mit Lazarus

Suche eine Idee was für ein Programm ich im Unterricht mit Lazarus (oder Delphi) erstellen kann. Bedingung sind, dass mindestens eine Verzweigung und eine Schleife mit dabei ist. Bei den Programmen die wir bisher erstellt haben, handelte es sich ausschließlich um Programme um etwas zu berechnen (Schnittpunkte Funktionen, Quadratsumme etc ).

Eine Antwort wäre sehr lieb, wenn möglich mit Beschreibung für das Verständnis. Muss dafür zudem noch ein Struktogram erstellen.

C#: Beim Starten meines Programms wird mir folgender Fehler angezeigt: CS1061 "object" enthält keine Definition für "Split"?

Joa, ich habe ein Problem, wo ich nicht weiterkomme.

var accounts = new WebClient().DownloadString("Hier ist nen Link").Split('\n');
textBox1.Text = accounts[new Random().Next(0, accounts.Length)];
MessageBox.Show("Erfolg! :^)");

Beim Starten wird mir aber folgender Fehler angezeigt:

CS1061 "object" enthält keine Definition für "Split", und es konnte keine zugängliche Split-Erweiterungsmethode gefunden werden, die ein erstes Argument vom Typ "object" akzeptiert (möglicherweise fehlt eine using-Direktive oder ein Assemblyverweis).

Delphi: CMD-Befehl mit Variable ausführen - Möglich?

Hey,

wir ärgern uns immer in der Schule mit dem Shutdown-CMD-Befehl. Ich programmiere häufig etwas mit Delphi (Embarcadero) und dieses mal ist es ein Programm, um geziehlt einen PC aususchalten, mit einem auswählbaren Grund. Dazu wird ein CMD Befehl ausgeführt:

ShellExecute(0, nil, 'cmd.exe', '/k shutdown -r -m \\an-23-10', nil, SW_SHOWNORMAL);

Hier ist an-23-10 der Computername. Es würde sogar funktionieren, jedoch kann ich nur einen Computer im Quellcode einbauen. Ich könnte natürlich den Code mit mehreren if-Schleifen verlängern, jedoch wäre das sehr unhandlich und unprofessionell. Kann man in diesen Befehl Variablen einbaut, welche Strings sind und im vorraus definiert wurden (Combo-Box). Der Befehl könnte dann ca. so aussehen:

ShellExecute(0, nil, 'cmd.exe', '/k shutdown -r -m \\' + Variable + ', nil, SW_SHOWNORMAL);

Ich hoffe, jemand kann mir da helfen

LG luci

Lazarus; Abbruch bzw Fehlermeldung bei ungültiger Eingabe ausgeben. Wie?

Hi. Ich bin grad dabei, bissl mit Lazarus herumzuspielen. Ich habe nun das Problem, dass ich nicht weiß, wie ich wenn man z.B. in eine Edit-Komponente nichts oder eine Zahl die kleiner ist als 2 eingibt, ich eine Fehlermeldung ausgeben lassen kann bzw das Programm sich selbstständig schließen lassen kann.

Ich weiß, dass ich zum beenden den Befehl Application.terminate brauche, aber wie mache ich das mit der bedingung?

Ich hoffe auf qualitative Antworten :) Grüße

Lazarus- Hilfe?

Wir müssen in Informatik bei einer Projektarbeit ein Programm erweitern. Dort geht es um die Verschlüsselung nach dem Cäsar-Prinzip. Auf einer Form gibt es ein eine MemoKomponente, welche mit 'Klartext' betitelt ist. Drunter sind zwei EditKomponente. Die erste ist mit 'Alphabet' betitelt und in dieser EditKomponente steht das Alphabet. Die zweite ist mit 'Schlüssel' betitelt, in dieser kann ein Schlüssel (vom Nutzer) eingetragen werden (das Alphabet in jeder erdenklichen Reihenfolge).

Nun soll ich programmieren, dass das Programm durch einen Button prüft, ob der Schlüssel genutzt werden kann. Sprich, dass es 26 Buchstaben sind und sie alle nur einmal vorkommen. Wenn das ganze so ist, soll auf einem Panel eine Nachricht erscheinen 'A les richtig, du kannst diesem Schlüssel nutzen'. Wenn das nicht so ist, soll auf dem selben Panel eine Nachricht erscheinen 'Überprüfe deinen Schlüssel nochmal. Sind alle 26 Buchstaben einmal vorhanden?'

Ich weiß leider nicht, wie ich das in meinem Programm umsetzten soll. Falls ich etwas undeutlich erklärt habe, einfach melden. Ich versuche er gerne nochmal anders zu erklären.

Ich hoffe einer von euch kann mit hier weiterhelfen!

In einem bestimmten Intervall alle Primzahlen ausgeben?

Hallo liebe Community ich habe folgendes Problem, ich habe die Aufgabe ein Programm zu schreiben, welches mir aus dem Intervall von 20-30 ausgibt wie viele Primzahlen dort enthalten sind und welche es sind. Anstatt mir aber, 2 als Anzahl und 23 und 29 als Primzahlen auszugeben, gibt mir das Programm 77 als Anzahl und dann ne Menge Zahlen aus. Ich verstehe jedoch nicht warum.

Quellcode:

procedure TForm1.StartClick(Sender: TObject);
var
  A, B, C, ANFANGS_WERT, END_WERT, ANZAHL : Cardinal;
  IST_PRIMZAHL : Boolean;
  PRIM_FELD : array[1..100] of Cardinal;
begin
  ANZAHL := 0;
  ANFANGS_WERT := StrToInt(Eingabe1.Text);
  END_WERT := StrToInt(Eingabe2.Text);
  for A := ANFANGS_WERT  to END_WERT do
  begin
    IST_PRIMZAHL := true;
    for B := 2 to (A div 2) do
    begin
      C :=  A mod B;
      if C = 0 then
      begin
        IST_PRIMZAHL := false;
      end
      else if IST_PRIMZAHL = true then
      begin
        Inc(ANZAHL);
        PRIM_FELD[ANZAHL] := A
      end
      else IST_PRIMZAHL := true;
    end;
  end;
  Ausgabe.items.add(' Primzahlen: ' + IntToStr(ANZAHL));
  for A := 1 to ANZAHL do
    begin
      Ausgabe.Items.Add(IntToStr(PRIM_FELD[A]));
    end;
end;

CodeBlocks C Programm lässt sich nach dem Compilieren nicht starten?

Ich verwende im Moment CodeBlocks zur C Programmierung. Nach dem Compilieren lassen sich meine Programme jedoch nur über die cmd starten. Am Quellcode selber kanns nicht liegen, habs auch schon mit Hello world und derartigem versucht. 64 bit Compiler minGW ist installiert, da ich dache es könnte am 32 bit Compiler liegen. Funktioniert noch immer nicht. Die .exe startet, verschwindet aber sofort wieder wenn ich sie aus dem Dateimanager starte. Win10

Startposition und Zustand eines Programms bestimmen (in VB)?

Ich weiß, dass ich "Process.start("Pfad zum Programm")" in Visual Basic schreiben kann.

Doch wie kann ich bestimmen, an welcher position das programm starten soll, ob es maximiert oder minimiert starten soll und etc.

Ich freue mich auf Antworten

Fertiges Programm von Visual Studio?

Hallo Leute ich suche ein fertiges programm zu einem Stundenplan in Visual Studio. Mit Quellcode und etc. brauche dringend Hilfe. Und wollte fragen ob jemand solch ein Programme hätte.

Was möchtest Du wissen?

Deine Frage stellen

gf-shortened-block.is-short { max-height: none !important; } gf-shortened-block.is-short::after { display: none !important; } body { font-family: 'Roboto',sans-serif !important; } h1,h2,h3,h4,h5,h6 { font-family: 'Roboto Slab',serif !important; }