Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Koordinaten an server senden (https://www.delphipraxis.net/20948-koordinaten-server-senden.html)

Neuni 25. Apr 2004 19:18


Koordinaten an server senden
 
Oh...ich seh gerade, dass DAS mein Problem nicht löst :oops:

Also mal was zum hintergrund der sache:

Ich möchte die aktuellen Maus-Koordinaten an nen server ermitteln, aber das problem ist ja, dass die koordinaten mal 2, mal3, oder sogar 4 Zeichen lang sind...also kann man ja nicht einfach sagen "Die ersten 3 Zeichen sind x, die anderen y".

Hat jemand ne Idee wie das sonst gehen kann?

Man könnte ja uch sagen "alles bis zum * ist x, alles danach y, aber geht sowas in delpi???

Hoffe jemand kann mir helfen

Nicolai1234 25. Apr 2004 19:23

Re: Koordinaten an server senden
 
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 :!:

gekmihesg 25. Apr 2004 19:25

Re: Koordinaten an server senden
 
Delphi-Quellcode:
x:=copy(koordinaten,0,pos('*',koordinaten)-1);
y:=copy(koordinaten,pos('*',koordinaten)+1,length(koordinaten));
wobei koordinaten z.b. 245*87 ist

Neuni 25. Apr 2004 19:35

Re: Koordinaten an server senden
 
danke gekmihesg...läuft bestens! :thuimb:


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:04 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz