Oh je... jetzt werden bei mir viel mehr Fehler geschmissen....
Folgender Code:
procedure TForm1.Button1Click(Sender: TObject);
function binzahltest(bz:string):string;
var ergebnis: string; i, anzahl, erg: integer;
begin
anzahl := length(bz);
ergebnis := true;
for i := 1 to anzahl do
begin
if ...
Die Suche ergab 12 Treffer
- Di 12. Mai 2020, 21:45
- Forum: Freepascal
- Thema: Binärzahl in Dezimalzahl
- Antworten: 12
- Zugriffe: 3816
- Di 12. Mai 2020, 11:06
- Forum: Freepascal
- Thema: Binärzahl in Dezimalzahl
- Antworten: 12
- Zugriffe: 3816
Binärzahl in Dezimalzahl
Hallo Zusammen,
ich habe die Aufgabe bekommen in Lazarus ein Binärzahlen-Tester zu programmieren.
Dabei benutze ich das erste mal Funktionen.
So wie es gerade aussieht ist da wohl einiges Schief gelaufen... Kann mich vielleicht einer von euch verbessern?
procedure TForm1.Button1Click(Sender ...
ich habe die Aufgabe bekommen in Lazarus ein Binärzahlen-Tester zu programmieren.
Dabei benutze ich das erste mal Funktionen.
So wie es gerade aussieht ist da wohl einiges Schief gelaufen... Kann mich vielleicht einer von euch verbessern?
procedure TForm1.Button1Click(Sender ...
- Do 26. Mär 2020, 22:22
- Forum: Freepascal
- Thema: Vorkommastellen
- Antworten: 3
- Zugriffe: 1520
Vorkommastellen
Hallo Zusammen!
Ich habe das Problem, dass ich nicht weiß und nicht herausfinde, wie man aus einer 1 → 01 macht
Ich möchte ein Output geben wo vorne eine Nummerierung ist. Aber da hapert es.
Was muss ich wo hinzufügen, dass das folgendermaßen aussieht:
01
02
03
04
05
06
07
08
09
10
11 ...
Ich habe das Problem, dass ich nicht weiß und nicht herausfinde, wie man aus einer 1 → 01 macht
Ich möchte ein Output geben wo vorne eine Nummerierung ist. Aber da hapert es.
Was muss ich wo hinzufügen, dass das folgendermaßen aussieht:
01
02
03
04
05
06
07
08
09
10
11 ...
- Sa 29. Feb 2020, 20:47
- Forum: Freepascal
- Thema: Lazarus readln
- Antworten: 11
- Zugriffe: 2739
Re: Lazarus readln
Oh Gott... Dankeschön.
Ich "programmiere" sonst eher mit PHP und dort ist es ja genauso... Hätte ja auch selbe drauf kommen können.
Aber jetzt funktioniert alles einwandfrei!
Ich "programmiere" sonst eher mit PHP und dort ist es ja genauso... Hätte ja auch selbe drauf kommen können.
Aber jetzt funktioniert alles einwandfrei!
- Sa 29. Feb 2020, 20:18
- Forum: Freepascal
- Thema: Lazarus readln
- Antworten: 11
- Zugriffe: 2739
Re: Lazarus readln
Also es geht hierbei um den Strom- und Wasserverbrauch.
Ich möchte diese in monatlichen Abständen speichern.
In Text-Dateien.
Dazu folgendes:
procedure TForm1.Button1Click(Sender: TObject);
var a_monat,
b_monat,
a_f_name,
b_f_name: string;
a_jahr,
b_jahr,
a_strom,
a_wasser,
wverbrauch ...
Ich möchte diese in monatlichen Abständen speichern.
In Text-Dateien.
Dazu folgendes:
procedure TForm1.Button1Click(Sender: TObject);
var a_monat,
b_monat,
a_f_name,
b_f_name: string;
a_jahr,
b_jahr,
a_strom,
a_wasser,
wverbrauch ...
- Sa 29. Feb 2020, 18:47
- Forum: Freepascal
- Thema: Lazarus readln
- Antworten: 11
- Zugriffe: 2739
Re: Lazarus readln
Muss ich die Prodezur offen lassen?
Oder kann ich folgendes tun:
Denn hierbei wird mir immer irgendein Fehler vorgeworfen.
Oder kann ich folgendes tun:
Code: Alles auswählen
b_sl := TStringList.Create;
try
b_sl.LoadFromFile(b_f_name);
b_zahl1:= StrToInt(b_sl[1]);
b_zahl2 := StrToInt(b_sl[2]);
finally
b_sl.Free;
end;
- Sa 29. Feb 2020, 13:57
- Forum: Freepascal
- Thema: Lazarus readln
- Antworten: 11
- Zugriffe: 2739
Lazarus readln
Hallo Zusammen!
Ich bin gerade dabei einen relativ großen Code zu entwickeln.
Meine Erfahrungen sind jetzt nicht so weit, aber ich versuche immer wieder neues.
Nun habe ich folgendes vor:
Ich habe eine Datei A und eine Datei B.
In Datei A befindet sich In Zeile 1 eine Zahl und in Zeile 2 Ebenfalls ...
Ich bin gerade dabei einen relativ großen Code zu entwickeln.
Meine Erfahrungen sind jetzt nicht so weit, aber ich versuche immer wieder neues.
Nun habe ich folgendes vor:
Ich habe eine Datei A und eine Datei B.
In Datei A befindet sich In Zeile 1 eine Zahl und in Zeile 2 Ebenfalls ...
- Fr 27. Dez 2019, 10:58
- Forum: Komponenten und Packages
- Thema: Chat
- Antworten: 5
- Zugriffe: 1580
Re: Chat
Ok, Dankeschön!
~ Thema erledigt
~ Thema erledigt
- Mo 23. Dez 2019, 00:05
- Forum: Komponenten und Packages
- Thema: Chat
- Antworten: 5
- Zugriffe: 1580
Chat
Hallo Zusammen!
Ich habe eine kleine Frage:
Kann ich mithilfe eines Tools (o. Ä.) Daten / Informationen an andere Geräte senden, die die gleiche Anwendung offen haben?
Oder ist das zu kompliziert? Möglichst ohne Datenbanken, da ich das sonst auch einfach in PHP machen kann ;D
Es wird doch ...
Ich habe eine kleine Frage:
Kann ich mithilfe eines Tools (o. Ä.) Daten / Informationen an andere Geräte senden, die die gleiche Anwendung offen haben?
Oder ist das zu kompliziert? Möglichst ohne Datenbanken, da ich das sonst auch einfach in PHP machen kann ;D
Es wird doch ...
- Sa 21. Dez 2019, 22:55
- Forum: Komponenten und Packages
- Thema: 2 Random Zahlen
- Antworten: 9
- Zugriffe: 2042
Re: 2 Random Zahlen
Ich will doch kein "richtiges" Spiel programmieren, aber mich trotzdem in Lazarus ausprobieren.
Kam dabei zufällig durch ein ähnliches Video auf diese Idee.
Außerdem ist die Strecke lang genug, dass man das rechtzeitig erkennen kann.
Kann ich nicht auch den Wert vom Ende der Schleife auf
Image3 ...
Kam dabei zufällig durch ein ähnliches Video auf diese Idee.
Außerdem ist die Strecke lang genug, dass man das rechtzeitig erkennen kann.
Kann ich nicht auch den Wert vom Ende der Schleife auf
Image3 ...
- Sa 21. Dez 2019, 22:20
- Forum: Komponenten und Packages
- Thema: 2 Random Zahlen
- Antworten: 9
- Zugriffe: 2042
Re: 2 Random Zahlen
OK. Du hast zwar kleine Fehler bei dir aber ich habe die berichtigt.
Ich habe jetzt noch eine letzte Sache: Ich habe ein Ziellinien-Bild bei mir auf Position Left: 920 eingestellt.
Kann ich machen, dass das Auto nur bis dort fährt?
Ich habe es hiermit probiert, aber damit funktioniert es nicht ...
Ich habe jetzt noch eine letzte Sache: Ich habe ein Ziellinien-Bild bei mir auf Position Left: 920 eingestellt.
Kann ich machen, dass das Auto nur bis dort fährt?
Ich habe es hiermit probiert, aber damit funktioniert es nicht ...
- Sa 21. Dez 2019, 21:04
- Forum: Komponenten und Packages
- Thema: 2 Random Zahlen
- Antworten: 9
- Zugriffe: 2042
2 Random Zahlen
Hallo Zusammen!
Ich bin gerade dabei ein "kleines Spiel" aus lange Weile zu programmieren.
Ich habe dazu einen Start-Button erstellt, der 2 verschiedene Timer auslöst. Die Beiden Timer sollen aber unterschiedliche Intervalle haben. Ich habe es bereits mit Random() probiert.
Hier mein Code:
unit ...
Ich bin gerade dabei ein "kleines Spiel" aus lange Weile zu programmieren.
Ich habe dazu einen Start-Button erstellt, der 2 verschiedene Timer auslöst. Die Beiden Timer sollen aber unterschiedliche Intervalle haben. Ich habe es bereits mit Random() probiert.
Hier mein Code:
unit ...