Deutsches Lazarusforum

Das mit dem Record funktioniert schon. Da ich auf den Daten auf sehr unterschiedliche weise zugreife, mal auf einzelne Bits mal als Char und da habe ich einfach keine Lust mit Zeiger um mich zu schmeißen oder ständig Bits aus und einzumaskieren. Die "absolute"- Anweisung wäre auch eine Alternative ...

Hallo,

nach längerem Suchen habe ich herausgefunden warum der Codeformatierer bei mir nicht funktioniert, es liegt an den case-Anweisungen. Weiß jemand wie ich das Problem umgehen kann?

function MaskeBits(Zahl:Byte):Cardinal;
begin
case Zahl of
0: Result:=%0000000000000000;
1: Result ...

Hallo,

ich habe es jetzt mit einem Observer und interface gelöst und den Ansatz mit RTTI verworfen.

type
TMyDaten = class (TPersistent)
private
FKom:String;
published
property Kom:String read FKom write FKom;
end;

TMyDatenListe =class(TPersistent)
private
FListe:TObjectList;
function GetItems(Index: Integer): TMyDaten;
function GetKom(Index: Integer): String;
procedure SetKom(Index ...

ich meine mit verbinden den "Link" so das ich mich nicht selbst um die Übername der Änderungen kümmern muss.
Ich werde mal Heute Abend ein kleines Beispiel-Projekt machen.

Hallo,

ist es möglich ein array property mit einem TIEdit zu verbinden?

private
FList: TObjectList;
...
public
...
property Kom[Index: Integer] :String read GetKom write SetKom;
property Operand[Index: Integer] :TOperand read GetOperand write SetOperand;
...

mit freundlichen Grüßen
Bernd

Hi,

SPS heist Speicherprogrammierbare Steuerung http://de.wikipedia.org/wiki/Speicherprogrammierbare_Steuerung oder auch Programmable Logic Controller (PLC).
Bei Solchen Programmen kenne ich mich auch etwas besser aus als unter Pascal.

ich werde mir dein Beispiel heute Abend ansehen.
Die Anzahl ...

Hi,

ich suche Funktionen um einfache Bit- Manipulationen wie bei einer SPS zu machen, wie etwa

U "Bedingung" // wenn Bedingung ein
= M10.0 // Merker Byte 10 Bit 0 ein
aber auch Byte und Word weisen zugriff


der AWL OP-Code ist folgendermaßen aufgebaut
Merker | Bit
Bit 15-3 | 2-0
1111111111111 ...

Hallo,

ich erzeuge mehrere Fenster mit;
Form := TForm1.Create(Application);
Form.loadDir(Dir1, Dir2);
//Form.Show;
DockMaster.MakeDockable(Form,true,true);
DockMaster.ManualDock(DockMaster.GetAnchorSite(Form),Form2,alClient);

Aber wie gebe ich sie wieder frei wenn das Fenster geschlossen ...

Hallo ich hab da ein Problem mit einer Aufzahlung wenn die Datei Kodierung UTF8 ist.
Aber wenn ich auf CP1252 (Ansi) umstelle bekomme ich beim Compilieren zwar keine Fehlermeldung mehr aber dann funktionieren die Umlaute nicht mehr.

Die Fehlermeldung bei UTF8: Error: Ordinal expression expected ...

wo finde ich eigentlich die Unit "DBClient" bzw die Funktion "TCustomClientDataSet".


Liebe Grüße

Dan müsste sich das Symbol beim Ändern des Themes mit Ändern.
Ich Probiere jetzt das Lazarus Beispiel "GridCellEditor",
mit zwei Combobox aus:
1. normal für das Berabeiten
2. bei "StringGrid1MouseMove" und nicht aktiver Zelle

das Sollte eigentlich dann auch mit dem KGrid funktionieren.

Ihr könnt mir auch ein anderes Grid Vorschlagen das einfach zu benutzen ist.
Momentan bin ich noch am Testen.
Die Funktion kenne ich aus einer Software die mir auf der Arbeit benutzen,
und finde die überaus praktisch formalem in Verbindung mit einem SpinEdit.

Ich hab mir jetzt folgende procedure hinzugefügt:

procedure TForm1.KGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var Col,Row:Integer;
begin
//KGrid1.SetFocus;
KGrid1.MouseToCell(X,y,Col,Row);
if (Col and Row) <> 0 then
begin
KGrid1.Col:=Col;
KGrid1.Row:=Row;
end;
end ...

Ich möchte in einem Grid eine Combobox einbauen was mir auch schon gelingt, ober sie soll auch angezeigt werten wenn ich mit der Maus über der Zelle bin. Die Combobox sollte natürlich beim ersten Klick auf den Pfeil Aufgehen.

kann mir einer sagen wie ich das mache?
Danke schon einmal im voraus ...