Forum: Algorithmen, Datenstrukturen und Klassendesign
14. Jul 2019, 15:45
|
|
Antworten: 8
Hits: 806
AW: Vererbung: Klassentyp erwartet
Hallo,
dann gib doch Deiner Klasse eine TRect-Property:
TRechteck = class
private
fRect:TRect;
public
constructor Erstellen(x1,y1,x2,y2:Integer);
property Rechteck:TRect read fRect;
|
|
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
10. Jul 2019, 09:30
|
|
Antworten: 13
Hits: 1.842
AW: Zeichnung wird nicht richtig gezeichnet
Hallo delphicoder123,
anbei ein einfaches Beispiel, in dem das Rechteck nach Mausklick gezeichnet und der Hintergrund aktualisiert wird.
unit Unit2;
interface
uses
Winapi.Windows,...
|
|
Forum: Programmieren allgemein
27. Jun 2019, 09:27
|
|
Antworten: 5
Hits: 1.258
AW: Optionale Parameter Funktion/Procedure
Hallo,
normalerweise sollte es mit overload funktionieren:
implementation
procedure Foo(a, b:Integer); overload;
procedure Foo(a, b, c, d:Integer); overload;
interface
procedure...
|
|
Forum: Sonstige Werkzeuge
14. Dez 2018, 11:59
|
|
Antworten: 3
Hits: 1.877
|
|
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
29. Mär 2018, 15:16
|
|
Antworten: 4
Hits: 1.126
|
|
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
19. Mär 2018, 13:35
|
|
Antworten: 2
Hits: 603
|
|
Forum: Netzwerke
20. Feb 2018, 15:26
|
|
Antworten: 6
Hits: 2.835
|
|
Forum: Algorithmen, Datenstrukturen und Klassendesign
8. Feb 2018, 16:10
|
|
Antworten: 16
Hits: 2.633
AW: Größter Wert aus StringGrid
Hallo peetfree,
evtl. so:
function GetMaxFromStringGrid():Integer;
var aRow, aCol, max:Integer;
begin
max:=0;
for aRow:=0 to StringGrid1.RowCount-1 do
if...
|
|
Forum: Win32/Win64 API (native code)
1. Feb 2018, 16:18
|
|
Antworten: 45
Hits: 6.395
AW: Externes Programm Teil 2
Hallo Willie,
ich habe es auch nicht selber erfunden.
Das Beispiel ist sogar aus der Delphi-Hilfe bzgl. Unicode-Umstellung.
Wichtig ist, dass Dir geholfen wurde.
|
|
Forum: Win32/Win64 API (native code)
30. Jan 2018, 14:30
|
|
Antworten: 45
Hits: 6.395
|
|
Forum: Win32/Win64 API (native code)
29. Jan 2018, 16:38
|
|
Antworten: 45
Hits: 6.395
AW: Externes Programm Teil 2
Hallo Willie,
wenn Du mit Strings statt AnsiStrings arbeitest, musst Du Deine Speicher- und Leseroutine ändern:
var
aText:String;
aLen :Integer;
begin
if SDialog.Execute then begin
...
|
|
Forum: Sonstige Fragen zu Delphi
16. Jan 2018, 14:10
|
|
Antworten: 10
Hits: 1.410
AW: VSoft.CommandLineParser compiliert nicht.
In XE2 gibt es keinen TStringHelper. Auch die anderen RecordHelper sind nicht vorhanden.
Entweder die Helper selber machen oder in dem Fall, Trim aus der System.SysUtils benutzen.
|
|
Forum: Object-Pascal / Delphi-Language
11. Jan 2018, 10:43
|
|
Antworten: 4
Hits: 914
AW: Listview verhält sich komisch
Hallo,
die Werte in den Subitems sind als String gespeichert. Wenn du Zahlen vergleichen willst, musst Du die Strings vorher umwandeln.
Falls es Integer-Werte sind, müsste folgendes...
|
|
Forum: Algorithmen, Datenstrukturen und Klassendesign
23. Nov 2017, 15:21
|
|
Antworten: 5
Hits: 838
|
|
Forum: Programmieren allgemein
16. Nov 2017, 13:09
|
|
Antworten: 4
Hits: 1.068
AW: aktueller Font.Style einer Komponente
Hallo,
der Font-Style ist in der Unit System.UITypes folgendermaßen deklariert:
type
TFontStyle = (fsBold, fsItalic, fsUnderline, fsStrikeOut);
TFontStyles = set of TFontStyle;
|
|
Forum: Die Delphi-IDE
19. Aug 2017, 15:36
|
|
Antworten: 5
Hits: 1.357
|
|
Forum: Die Delphi-IDE
18. Aug 2017, 15:52
|
|
Antworten: 5
Hits: 1.357
|
|
Forum: Die Delphi-IDE
18. Aug 2017, 15:40
|
|
Antworten: 5
Hits: 1.357
|
|
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
16. Aug 2017, 16:06
|
|
Antworten: 2
Hits: 1.031
|
|
Forum: Datenbanken
20. Jul 2017, 11:27
|
|
Antworten: 8
Hits: 3.692
AW: Zeit in Industrieminuten
Hallo,
vielleicht musst Du aus dem UNIX-Timestamp die Zeit extrahieren:
TIME_TO_SEC(TIME(from_unixtime(zef.zef_out)) - TIME(from_unixtime(zef.zef_in)))/60/0.6 as test,
Kann es gerade...
|
|
Forum: Datenbanken
20. Jul 2017, 10:52
|
|
Antworten: 8
Hits: 3.692
AW: Zeit in Industrieminuten
Hallo,
wie ist die Zeit in der DB gespeichert?
Ansonsten so:
SELECT TIME_TO_SEC([MeinZeitFeld])/60/0.6 AS Industrieminuten
FROM [MeineTabelle]
|
|
Forum: Klatsch und Tratsch
11. Jul 2017, 11:29
|
|
Antworten: 0
Hits: 635
|
|
Forum: Die Delphi-IDE
4. Jul 2017, 11:04
|
|
Antworten: 11
Hits: 1.802
|
|
Forum: Die Delphi-IDE
4. Jul 2017, 08:25
|
|
Antworten: 11
Hits: 1.802
|
|
Forum: Die Delphi-IDE
3. Jul 2017, 16:00
|
|
Antworten: 11
Hits: 1.802
|
