Deutsches Lazarusforum

danke

Nur um zu prüfen, ob mein Programm richtig funktioniert, habe ich einen Schalter und ein Label eingebaut, doch ich erhalte die Fehlermeldung:
Error: Incompatible types: got "AnsiString" expected "TLabel"

LabelBasiswert := Basiswert;

Basiswert ist natürlich als String deklariert. Was ist daran ...

ich möchte eine verschachtelte Schleife konstruieren. Als erstes soll mein StringGrid nach €-Einträgen durchsucht werden, dann nach $-Einträgen. Doch Lazarus nimmt den folgenden Code nicht an und sagt am Ende ("BEGIN" expected):


begin
for i := 1 to 20 do
begin
if StringGridDepot.Cells[4,i ...

danke, jetzt geht es. Mein erstes Beispiel habe ich übrigens aus einem alten Delphi-Buch von Markt und Technik, aber das war wohl auch nicht vor Druckfehlern gefeit.

jetzt mache ich es ganz ausführlich:

procedure TForm1.Button2Click(Sender: TObject);
var
S : String;
x : integer;
begin
S := Label1.Caption;
x := Length(Label1.Caption);
Label2.Caption := system.Insert(',', S, (x-2));
end;

aber Lazarus meldet bei dem Komma nach dem S: Syntax error ...

da in meinem Stringgrid Strings stehen, wäre es meiner Meinung nach das beste, an der drittletzten Stelle ein Komma einzufügen. Warum funktioniert denn das angefügte Beispiel nicht? Sicherlich könnte ich den Wert auch in ein Double umwandeln.

nachdem das mit dem Sortieren jetzt wunderbar funktioniert, möchte ich meine Werte jetzt noch besser lesbar machen. In der Spalte stehen momentan Centbeträge, die ich wieder in Eurobeträge umwandeln möchte. Dafür brauche ich ja eigentlich nur ein Komma an der drittletzten Stelle einfügen. Ich wollte ...

ok, jetzt funktioniert es. Tut mir leid, dass ich mich ein bisschen doof anstelle.

mir ist immer noch nicht klar, um welche Spalte es sich handelt. Ich möchte die Spalte "Wert" sortieren:
https://abload.de/img/bild25tk41.jpg
ich habe den von Winni oben angegebenen Code bei CompareCells eingegeben:

procedure TForm1.StringGridDepotCompareCells(Sender: TObject; ACol, ARow, BCol ...

die Werte in der Spalte werden vom Programm errechnet. Deshalb kann ich die letzten Bearbeitungsschritte (das Hinzufügen der Währungszeichen und der Tausendertrennzeichen) einfach weglassen. Ich habe jetzt Integerzahlen in der Spalte stehen, schaffe es aber trotzdem nicht, die Spalte richtig zu ...

es tut mir leid, wenn ich jetzt nochmal frage, aber bei mir wird die Spalte nicht richtig sortiert. Wenn ich die Sortierreihenfolge umkehre, steht die Spalte auf dem Kopf, aber genauso falsch sortiert wie vorher. In der Spalte stehen Werte, wie z.B. "107,45 USD", in der nächsten Zeile steht z.B ...

ok, vielen Dank. Dass es so einfach geht, hätte ich nicht gedacht. In Zukunft werde ich mir die Möglichkeiten genauer anschauen.

gibt es eine einfache Möglichkeit, die Reihen im Stringgrid nach dem Inhalt einer Spalte auf- bzw. absteigend zu sortieren? Komplizierte Lösungen sind mir schon eingefallen, wie z.B. das Exportieren des Inhalts in eine Excel-Datei, dort sortieren und dann wieder importieren.

ich glaube, ich habe es schon rausgefunden. n ist die Anzahl der Nachkommastellen.

was bedeutet bitte das Zeichen "n" in WriteLn(Format('%.3n', [x]));