Registriert seit: 27. Aug 2003
Ort: Ennepetal
440 Beiträge
Delphi 2005 Personal
|
Re: Kompatiblität mit Windows98-System!
18. Sep 2003, 15:27
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!
|
|
Zitat
|