Deutsches Lazarusforum

Vergessen: das Komma muss auch weg.

Guten Abend

gebt mir bitte mal einen Denkanstoß.
Ich habe ein Memo1 und darin steht 0x33, 0x54, 0x45 ....
Nun soll das 0x weg und aus der 33 soll eine HEX 33 (also ASCII) werden. Wie stelle ich das besten an?

Gruß in die Runde
Jornbyte

Danke euch, genau das "DefaultFormatSettings.ThousandSeparator:=#0;" hat den Punkt beseitigt

Hi
lang lang ist es her, aber heute melde ich mich mal wieder.
Da findet eine tolle Berechnung (float) statt und das Ergebnis ist 1000 und wird 1.000 dargestellt.
Wie bekomme ich den Punkt weg?

Ich habs geahnt
Danke

Hallo

Hab wiedermal ne Frage.
An die serielle Schnitstelle wird ein String gesendet, klappt gut. Nun könnte es auf den String (je nach Inhalt) eine Antwort geben. Wie kann ich dieses Ereigniss mitbekommen ohne Pollen. Synaser bietet OnStatus an, nur da kommt nix an. Ich denk das ich wiedermal zu ...

Bei mir geht es auch in der Lazarus-0.9.22-fpc-2.0.4 nicht, eben getestet.

Danke, ich dachte schon, hätte eine an der Waffel.

Hallo

Könnte von euch einer mal testen ob die TrackBar unter Lazarus-0.9.23-fpc-2.1.3 fuktioniert?
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Label1.Caption:= inttostr(TrackBar1.Position);
end;
Mit Lazarus-0.9.20-fpc-2.0.4 habe ich die Position, bei Lazarus-0.9.23-fpc-2.1.3 steht ...

Nun melde ich mich noch mal zum Thema. Wer versucht die Farben unter Win umzustellen wird in Linux keine Einträge im ListView sehen. Auch dann, wenn alle Änderungsversuche zurück genommen werden.

du magst das vom c compiler so gewohnt sein ...

Hatte ich schon geschrieben, sonst mache ich Assembler, also nix mit C/C++. Diese Anwendung muss unter Win und Linux laufen. Ich werde die Anforderung (größer/kleiner) nun in der 3D Darstellung in Rot zeichnen. Mal sehen ob da einer meckert...

Das mag sein. Aber es geht um Lazarus und ListView. Teste es mal.
VirtualTreeview: da bekomme ich Fehler beim Kompilieren. (morgen ist auch noch ein Tag)

Na wenn es die Experten nicht wissen....
vieleicht findet ihr ja noch eine Lösung.

Danke an euch, ich werde es weiter verfolgen.

Nun bekomme ich es ohne Fehler aber die Farben ändern sich nicht.

procedure TForm1.liste();
var Item: TListItem;
begin
Item := Listview1.items.add(); //Nr.
Item.SubItems.add(''); //Breite
Item.SubItems.add(''); //Höhe
Item.SubItems.add(''); //Länge
Item.SubItems.add(''); //Volumen

with ...

Ja, diese Seite hatte ich auch schon.
nur da bekomme ich da auch ne Fehlermeldung:
volumen.pas(903,10) Error: Identifier not found "Item"
die steht bei: case Item.Index of
gibt es sowas wie : ListView1.Items.Item[0].Canvas.Brush:= clRed;