Sehe ich das richtig, dass du einen string hast in dem die Koordinaten stehen also 635*422 (z.B.)?
Dann kanst du mit
Delphi-Quellcode:
function koordinaten(koordinaten:string;xy:string):integer;
var i:integer;
x,y:string;
begin
i := 1;
repeat
x := x + quelle[i];
inc(i);
until quelle[i] = '*';
for i := length(x) + 2 to length(quelle) do y := y + quelle[i];
if xy = 'y' then result := strtoint(y);
if xy = 'x' then result := strtoint(x);
end;
die koordinaten aufrufen z.B.:
Delphi-Quellcode:
x := koordinaten(DeineKoordinaten, 'x')
y := koordinaten(DeineKoordinaten, 'y')
Im Beispiel sehen die Koordinaten so aus: 245*354
