Delphi überspringt eine Zeile...

[LocoMH]

Vielen Dank auch dir für die Hilfe...und dennoch, es ändert nichts an dem Problem. Ich habe jetzt also den gesamten Ordner ausgelagert und es mit Build versucht...alles beim Alten, die Punkte sind an den falschen Stellen und mit F7/8 springt er auch in genau diese Zeilen. Das ist doch wie verhext...

[himitsu]

Du könntest natürlich auch mal die Datei in eine Zip packen und hier hochladen.
Oder bist du dir ganz sicher, daß da wirklich keine Zeichen drin enthalten sind, welche dafür verantworlich sein könnten?

[LocoMH]

Ich bin mir äußerst sicher. Und wenn doch, dann weiß ich wenigstens nicht welches. Hier also die betroffene Unit, vielleicht gibt das ja Aufschlüsse. Ich würde vorerst ungern alles hochladen, wenn das hier nicht zur Lösung des Problems beitragen kann werd ichs wohl dann aber tun.

Delphi-Quellcode:

unit uSuche;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TFormSuche = class(TForm)
    pnSuche: TPanel;
    imSuchebg: TImage;
    imChosen3: TImage;
    imChosen2: TImage;
    imChosen1: TImage;
    lbnachStudiengang: TLabel;
    lbnachVorlesung: TLabel;
    lbnachDozent: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure lbnachStudiengangClick(Sender: TObject);
    procedure imSuchebgClick(Sender: TObject);
  private
    pChosen, pChosenP, pChosenC: TPicture;
    OptionChosen: Integer;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FormSuche: TFormSuche;

implementation

uses uMain;

{$R *.dfm}

procedure TFormSuche.FormCreate(Sender: TObject);
var s: String;
begin

  s := 'Graphics\Suche\';

  DoubleBuffered := True;
  pnSuche.DoubleBuffered := True;

  pChosen := TPicture.Create;
  pChosenP := TPicture.Create;
  pChosenC := TPicture.Create;

  pChosen.LoadFromFile(s + 'btChosen.png');   
  pChosenP.LoadFromFile(s + 'btChosenP.png');
  pChosenC.LoadFromFile(s + 'btChosenC.png');

  imSucheBG.Picture.LoadFromFile(s + 'SucheBG.png');
  imChosen1.Picture := pChosenC;                     
  imChosen2.Picture := pChosen;
  imChosen3.Picture := pChosen;

  lbnachDozent.Caption := 'nach' + #13 + 'Dozent';

  OptionChosen := 1;
  
  pnSuche.Width := 1000;
  pnSuche.Height := 530;
  pnSuche.Left := 12;
  pnSuche.Top := 78;
  pnSuche.Parent := FormMain
end;

procedure TFormSuche.lbnachStudiengangClick(Sender: TObject);
var a: Integer;
begin
  a := (Sender as TLabel).Tag;
  TImage(FindComponent('imChosen'+inttostr(a)).Picture :=  pChosenC;
  TImage(FindComponent('imChosen'+inttostr(OptionChosen)).Picture :=  pChosen;
  OptionChosen := a;
  FormNachStudiengang.ChangeStudiengang(1)
end;

end.

[himitsu]

Und da sag ich extra noch, das sie gepackt ans Anhang hochgeladen werden soll, denn so bringt das nicht viel, da jetzt alle eventuell mal vorhandenen störenden Sonderzeichen geschrottet sind.

[LocoMH]

Tut mir leid...
Ich habe grad was gemacht, was ich wohl viel früher hätte machen sollen - die Unit aus dem Projekt entfernt und wieder hinzugefügt. So sehr es mich auch wurmt, jetzt funktioniert's wieder wie es sollte...
Warum es aber das Problem gab...werd ich wohl nie erfahren.
Warum ich das nur als Text eingefügt hab, hab ich allerdings noch hinzugefügt.
In diesem Sinne: Sorry und vielen Dank für die Mühe!