Hey DBs,
ich hab mal wieder eine frage.
Hier erstmal mein Quelltext:
Delphi-Quellcode:
unit Unit1;
...
type ftabsave =
ARRAY [0..100,1..2]
of string;
type fsystem =
ARRAY [1..2]
of integer;
...
var
Form1: TForm1;
tabsave:ftabsave;
systems:fsystem;
zahl:integer;
...
function TabSyneditSave(text:
string;tabposition,cursorposition:integer):boolean;
begin
tabsave[tabposition,1]:=text;
tabsave[tabposition,2]:=InttoStr(cursorposition);
end;
procedure TabSyneditLoad(tabposition:integer;
var text:
string; cursorposition:integer);
begin
text:=tabsave[tabposition,1];
cursorposition:=strtoint(tabsave[tabposition,2]);
end;
procedure TabSyneditManager(text:
string;tabposition,cursorposition:integer;
var newtext:
string;newcursorposition:integer);
begin
TabSyneditSave(text,systems[1],cursorposition);
TabSyneditLoad(tabposition,newtext,newcursorposition);
systems[1]:=tabposition;
end;
so hier sind die 3 Funkionen oder Proceduren.
mein Problem ist das bei Cursorposition (in der Procedure TabSyneditLoad) der wert z.b. auf 3 ist dann bei newcursorposition(in der procedure TabSyneditManager) auf 4444192.
Warum ist das den so ?
ich hab kein plan wo der fehler liegt
