Kompatiblität mit Windows98-System!

[axelf98]

Hallo!

Ich habe ein Programm geschrieben und es so lange getestet bis kein Fehler mehr vorkam... Auf meinem Windows XP Rechner läuft das Programm super. In der Schule haben wir noch Windows 98 und ich wollte es mal testen und siehe da: Es läuft NICHT so wie es sollte... Ich hab ein Richedit, dass Zahlen rot und mit Index schreibt, das klappt unter 98 genau ein Mal, danach nicht mehr!

Habt ihr ähnliche Probleme und wie kann man das lösen?

[Die Muhkuh]

Schreib mal dann Code dann kann ich dir vielleicht helfen weil ich das gleiche Prob auch gehabt habe

[Phoenix]

Tja, da bleibt Dir wohl nicht viel anderes über, als Dir einen Rechner mit Win98 hinzustellen, dort Delphi drauf zu packen und das Programm zu debuggen.

Alternativ (wenn Du einen Rechner mit Delphi im gleichen Netzwerk wie die Win98-Kiste hast) kannst Du auch von Deinem XP-Rechner aus die Anwendung auf dem 98er remote-debuggen.

Und wie wir (ich) so Sachen löse?
Gleich von Anfang an auf allen Platformen auf denen das laufen soll testen. Ne andere Lösung gibts kaum.

[Luckie]

Nutzt du irgenwelche NT/XP speziofischen API-Funktionen? Macht dein Programm irgendwas besonderes?

[axelf98]

Zitat:

Zitat von Luckie

Nutzt du irgenwelche NT/XP speziofischen API-Funktionen? Macht dein Programm irgendwas besonderes?

Nein... Ein ganz normales Programm mit Delphi-Komponenten!

Der Code an dem es liegen könnte:

Delphi-Quellcode:

  // Das Richedit wird natürlich vorher gelöscht...

    procedure TForm2.FormatIndexed(Start,Laenge:integer);
    begin
     with RichEdit1.SelAttributes do
      begin
      richedit1.SelStart:= start;
      richedit1.Sellength:= Laenge;
      size := 8;
     end;
    end;

    procedure TForm2.FormatBlau(Start,Laenge:integer);
    begin
     with RichEdit1.SelAttributes do
      begin
      richedit1.SelStart:= start;
      richedit1.Sellength:= Laenge;
      color := clblue;
     end;
    end;

procedure TForm2.FormatSolution(ed,pr:tstringlist;X:TLoesung); //TLoesung = Array of Extended
  var pos,i,j,tmp: integer;
      s : string;
  begin
   pos := 0;                     // Farbe
   for i := 0 to ed.Count-1 do
   begin
    if X[i] <> 0 then
    begin
     if x[i] <> 1 then
     begin
     tmp:=length(floattostr(X[i]));
     self.FormatBlau(pos,tmp);
     inc(pos,tmp+4+length(ed[i]));
     end ELSE
     begin
     inc(pos,3+length(ed[i]));
     end;
    end;
   end;
   inc(pos,1);
   for i := 0 to pr.Count-1 do
   begin
    if X[i+ed.count] <> 0 then
    begin
     if x[i+ed.count] <> 1 then
     begin
     tmp:=length(floattostr(X[i+ed.count]));
     self.FormatBlau(pos,tmp);
     inc(pos,tmp+4+length(pr[i]));
     end ELSE
     begin
     inc(pos,3+length(pr[i]));
     end;
    end;
   end;

   pos := 0;
                         // Indexed
   for i := 0 to ed.Count-1 do
   begin
     if (x[i]<>0) then
     begin
     if x[i]<>1 then inc(pos,length(floattostr(X[i]))+1);
      s := ed[i];
       for j := 0 to length(s) do
      begin
       if istzahl(s[j]) then  FormatIndexed(pos+j-1,1);
      end;
      inc(pos,3+length(s));
     end;
   end;

   pos := (AnsiPos('->',richedit1.Lines.Strings[0])+2);    // Mitte finden

   for i := 0 to pr.Count-1 do
   begin
     if  (x[i+ed.count]<>0) then
      begin
      if x[i+ed.count]<>1  then inc(pos,length(floattostr(X[i+ed.count]))+1);
      s := pr[i];
       for j := 0 to length(s) do
      begin
       if istzahl(s[j]) then  FormatIndexed(pos+j-1,1);
      end;
      inc(pos,3+length(s));
      end;
   end;

  end;

Ich hab leider keine Möglichkeit zu Hause unter 98 zu testen.. Das ist schon ärgerlich, wenn sowas kommt!

[Luckie]

Könnte an unterschiedlochen Versionen der RichEdit DLL liegen. Win98 hat mit Sicherheit eine ältere.

[axelf98]

Hmm, beim ersten Mal klappts wunderbar... Beim zweiten Mal sind entweder alle Buchstaben klein oder eingefärbt!

[flomei]

:gruebel: Darf / Kann man die RichEdit.Dll einfach so tauschen? :gruebel: Wäre ja vielleicht die Lösung... :roll:

MfG Florian :hi: