aus Datenbank Datum ein image.left zuweisen

[Nine9]

Das er der Linken Seite (z.b 2020-01-01 ) nichts zuweisen kann..

Ich weis nicht wie das überhaupt geht vll hast du das mal in einer anderen Form mal gemacht.

[TiGü]

Die auskommentierten FDQuery1-Zugriffe müsstest du noch wieder einkommentieren

Delphi-Quellcode:

// muss in die Uses-Klausel
uses
   System.Math, System.UiTypes

...

procedure TKalender.FormCreate(Sender: TObject);
var
  d: Integer;
  Tag1: array[1..365] of Integer; //TArray<Integer>;
  simage: TImage;
  Colors: TArray<TColor>;
begin

//  FDQuery1.Open;

  for d := 1 to 365 do
  begin
    Tag1[d] := Trunc(Kalenderimage.Width / 365 * d);
  end;

//  if FDQuery1.FieldByName('START').Calculated then
  begin
    Colors := [TColors.Red, TColors.Dodgerblue, TColors.Floralwhite, TColors.Olive, TColors.Sandybrown];
    for d := 1 to 365 do
    begin
      simage := TImage.create(Self);
      simage.Parent := Self;
      simage.Left := Kalenderimage.Left + Tag1[d];
      simage.Height := Kalenderimage.Height;
      simage.Width := Trunc(Kalenderimage.Width / 365);

      // Mit zufälliger Farbe ausfüllen, damit sieht, dass es 365 verschiedene Images sind:
      simage.Canvas.Brush.Color := Colors[RandomRange(Low(Colors), High(Colors))];
      simage.Canvas.FillRect(simage.ClientRect);
    end;

  end;
end;

[haentschman]

Zitat:

Das er der Linken Seite (z.b 2020-01-01 ) nichts zuweisen kann.

...das kann aber nicht alles sein.

1.
j1 = keine lokale Schleifenvariable
2.
globale Variablen/ Arrays, wo sind die Deklarationen?
3.D := Tag1[D]; E := Stunden[E]; -> niemals mehrere "Befehle" in eine Zeile
4.
with simage do begin -> bitte with abkündigen
Das Problem.
left := Kalenderimage.left + 2020-11-01 := Tag1[1]; =
Variable := Variable + Variable := Array[1] -> siehst du es?
6.
left := Kalenderimage.left + 2020-11-01 := Tag1[1]; falsche Stringverkettung

Bitte durcharbeiten:
https://www.delphi-treff.de/tutorial...phi-crashkurs/

@TiGü:
Es fehlen ihm die Grundlagen. Bei so vielen Fehlern ist er mit deinem Code überfordert.

[Sinspin]

Wenn Du bis Gestern nur Kreise gemalt hast. Und ab Heute auch Rechtecke malen sollst, machst Du zwar was total neues, aber doch nichts wofür Du einen total neuen Weg gehen musst. Du, kannst einfach den bestehenden Weg anpassen.

Ich denke, was dir fehlt, ist wie Du ein Datum zerlegen kannst um an die Tage, Monate und Jahre zu kommen.
Das macht man mit SysUtils.DecodeDate