Forum: Die Delphi-IDE
by shmia,
8. Jan 2008
Du meinst, deine Prozedur sieht ungefähr so aus: :roll:
PROCEDURE TReportForm.frxReport1GetValue(CONST VarName: STRING; VAR Value: Variant);
BEGIN
IF CompareText(VarName, '1') = 0 THEN Value := MainForm.RegIniFile.ReadString(Datei, '1', '?')
else if CompareText(VarName, '2') = 0 THEN Value := MainForm.RegIniFile.ReadString(Datei, '2', '?')
else if CompareText(VarName, 'B8') = 0 THEN...
Forum: Die Delphi-IDE
by shmia,
7. Jan 2008
Das wäre dann aber das KO-Kriterium, denn du musst den Code ändern!
Wie sieht denn den Code aus ?
Wenn die Prozedure mehr als eine Seite hat, dann bis als ZIP anhängen, damit nicht alles vollgemüllt wird.
Hoffentlich sieht der Code nicht so aus wie die Strassen von Neapel...