Autor Beitrag
Hochhaus Threadstarter
ontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic starofftopic star
Beiträge: 662
Erhaltene Danke: 8

Windows 7
Delphi XE2
BeitragVerfasst: Mo 10.10.11 09:43 
user profile iconjaenicke hat folgendes geschrieben Zum zitierten Posting springen:
Was sind das denn für Meldungen?

Wenn es um die Units geht, müssen da die entsprechenden Prefixe davor, wenn noch welche fehlen.


Undeklarierter Bezeichner "CrHourGlass" in Zeile 154
Undeklarierter Bezeichner „mrYes“ in Zeile 328

etc. etc.
jaenicke
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 19338
Erhaltene Danke: 1752

W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
BeitragVerfasst: Mo 10.10.11 09:56 
Das sollte die Unit Controls sein, also jetzt vermutlich (kann grad nicht schauen) VCL.Controls, liegt die in den uses?

Für diesen Beitrag haben gedankt: Hochhaus
Hochhaus Threadstarter
ontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic starofftopic star
Beiträge: 662
Erhaltene Danke: 8

Windows 7
Delphi XE2
BeitragVerfasst: Mo 10.10.11 10:08 
user profile iconjaenicke hat folgendes geschrieben Zum zitierten Posting springen:
Das sollte die Unit Controls sein, also jetzt vermutlich (kann grad nicht schauen) VCL.Controls, liegt die in den uses?


Nein.

Gruss, Hochhaus
Hochhaus Threadstarter
ontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic starofftopic star
Beiträge: 662
Erhaltene Danke: 8

Windows 7
Delphi XE2
BeitragVerfasst: Mo 10.10.11 10:17 
user profile iconjaenicke hat folgendes geschrieben Zum zitierten Posting springen:
Das sollte die Unit Controls sein, also jetzt vermutlich (kann grad nicht schauen) VCL.Controls, liegt die in den uses?


Ich habe die VCL.Controls eingebunden. Jetzt funktioniert es weitgehend. Aber jetzt kommen neue weitere Fehlermeldungen

[DCC Fehler] CHILD.PAS(350): E1012 Konstantenausdruck verletzt untere Grenzen ...

in : --> Zeile := RichEdit1.Perform(EM_LineFromChar, -1, 0) + 1; {Dies lässt sich unter Delphi 6 PE problemlos compilieren}

Danke im Voraus für die Hilfe !

Hochhaus


P.S. Wie ich inzwischen gemerkt habe, gibt es einen grösseren Arbeitsaufwand, um ein bisheriges 32-Bit-Programm auf 64 Bit umzustellen. Der Texteditor läuft nun "fast" unter 64 Bit. Wenn ich ein neues Kindfenster öffne, kommen chinesische Zeichen auf den Bildschirm. Eine bestehende Datei wird mit grauenhaft verzerrtem Schriftfont dargestellt usw. usw.

Bin ich der Einzige mit solchen Problemen ?
Hochhaus Threadstarter
ontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic starofftopic star
Beiträge: 662
Erhaltene Danke: 8

Windows 7
Delphi XE2
BeitragVerfasst: Mo 10.10.11 18:29 
Hiermit poste ich das Beispielprojekt "TextEditor". Dann können Andere nachvollziehen, was es alles an Problemen gibt. (64 Bit-Version)
Einloggen, um Attachments anzusehen!
Chemiker
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 194
Erhaltene Danke: 14

XP, Vista 32 Bit, Vista 64 Bit, Win 7 64 Bit, Win 10, Win 11
BDS 2006, RAD Studio 2009+C++, Delphi 13, VS 2010 Prof.
BeitragVerfasst: Mo 10.10.11 19:43 
Hallo Hochhaus,

wenn der Code unter Delphi 6 gelaufen ist dann wirst Du ein Problem mit UNI-Code haben das seit Delphi 2009 implementiert worden ist. Das bedeutet z.B. das String unter Delphi 6 jetzt AnsiString unter Delphi XE2 ist.

Bis bald Chemiker
jaenicke
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 19338
Erhaltene Danke: 1752

W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
BeitragVerfasst: Mo 10.10.11 20:42 
Da sind auch ein paar richtig schöne Fehler drin. Zum Beispiel hier in FindX gehst du davon aus, dass ein Zeichen ein Byte groß ist statt es mit SizeOf(Char) zu verrechnen:
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
  GetMem(Ft, Length(FindText) + 1);
  StrPCopy(Ft, FindText);
  PGroesse := RichEdit1.GetTextLen + 1;
  GetMem(Puffer, PGroesse);
  RichEdit1.GetTextBuf(Puffer, PGroesse);
  ...

Für diesen Beitrag haben gedankt: Hochhaus
Hochhaus Threadstarter
ontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic starofftopic star
Beiträge: 662
Erhaltene Danke: 8

Windows 7
Delphi XE2
BeitragVerfasst: Di 11.10.11 07:17 
Moderiert von user profile iconNarses: Komplett-Zitat des letzten Beitrags entfernt.

Vielen Dank ! Hochhaus