mehrere Strings in einen String vereinen (mit fixer Länge + festen Positionen)

[Sir Rufo]

Passt jetzt zwar nicht zu der Ausgangs Problematik, aber mir sträuben sich gerade alle Nackenhaare bei:

Zitat von Helmi:

"Linie" und "Länge" werden aus einer StringGrid-Zeile gelesen. Daher der String.
Da ich es weiter dann auch als String benötige, wandle ich es nicht unnötigerweise erst in einen Integer.

Auserdem ist Linie keine Zahl - sondern eine Linien-Angabe einer U-Bahn

Das macht man doch nicht. Hierfür würde sich perfekt das Visitor-Pattern von Uwe Raabe anbieten.

Basierend auf der unit aus diesem Artikel sieht das dann so aus:

Delphi-Quellcode:

uses
  ..., uVisitor;

type
  TSubway = class
    property Line : string;
    property Destination : string;
  end;

  TSubwayArrival = class
    property Subway : TSubway;
    property ArrivalAt : TDateTime;
  end;

  // Der Einfachheit halber wird hier nur in eine Variable geschrieben
  // Es könnte aber auch direkt die Ausgabe an das LCD-Modul erfolgen
  // Oder an eine Klasse, die das LCD-Modul selber betreut :o)
  TLCDVisitor = class( TVisitor )
  private
    FLine : string;
  public
    property Line : string read FLine;
  published
    procedure VisitSubwayArrival( Instance : TSubwayArrival );
  end;

procedure TLCDVisitor.VisitSubwayArrival( Instance : TSubwayArrival );
begin
  FLine := { hier jetzt der Code um die Instanz auszugeben }
end;

und diesen Visitor hat man im 0, auch um weitere Klassen erweitert, um auch diese auf dem LCD darstellen zu können.

Ja und der Aufruf sieht dann immer so aus (egal welche Instanz und welche Klasse auch immer):
MyLCDVisitor.Visit( SomeInstance );