Text in Checkbox oder Label anzeigen

[juergen]

Hallo JimmyB,
bitte nutze doch in Zukunft bei Code die Delphi-Tags (dein Code markieren und dann Klick auf das Delphi-Symbol vom Editor). Es ist sonst schwierig den Code zu lesen.

Als Denkanstoß könnte dieser Code helfen. Voraussetzung ist, dass deine Checkboxen auch "Checkboxx" heißen. Das letzte x steht dabei für die Zahlen 1 oder 2 oder 3 usw.

Delphi-Quellcode:

PROCEDURE TForm2.Button1Click( Sender: TObject );
VAR
  i: Integer;
  sl: TStringList;
BEGIN
  IF FileExists( 'myFile.txt' ) THEN
  BEGIN
    sl := TStringList.Create;
    TRY
      sl.LoadFromFile( 'myFile.txt' );
      FOR i := 0 TO sl.Count - 1 DO
      BEGIN
        ( FindComponent( 'Checkbox' + IntToStr( i + 1 ) ) AS TCheckBox ).Caption := sl.strings[i];
      END;
    FINALLY
      sl.Free;
    END;
  END;
END;