Funktion Rückgabewert

[kingmarv]

erstmal danke für eure schnelle und netten Antowrten.
Ich dachte zuerst ich müßte mir jetzt anhören ich soll google benutzten. Echt gut hier.

Herzlichen Glückwunsch Patti zum 300ten Post


AWas : TMeinTyp) : boolean;

Ich glaube das ist interessant für mich

Um mein Problem nochmal zuerläutern:

So sieht mein String aus.

s:='spieltag=1|nachname=kamp|vorname=marvin|tippst ring=bochum2gegner6;dortmund1gegner1;schalke1gegne r0;leverkusen3gegner1;|';

Die Funktion um die Informationen von einen zu Trennen hab ich auch schon geschrieben, sieht zwar nicht sonderlich schön aus ^^ aber funktioniert:

Delphi-Quellcode:

function getstring(s:string) :boolean;
var
st,nn,vn,ts:string;
pos1,pos2,pos3,pos4,trenn:integer;
begin

pos1:=pos('spieltag=',s);
st:=copy(s,pos1+9,1);
showmessage(st);
trenn:=pos('|',s);
delete(s,1,trenn);


pos2:=pos('nachname=',s);
trenn:=pos('|',s);
nn:=copy(s,pos2+9,trenn-10);
showmessage(nn);
Delete(s,1,trenn);


pos3:=pos('vorname=',s);
trenn:=pos('|',s);
vn:=copy(s, pos3+8,trenn-9);
showmessage(vn);
Delete(s,1,trenn);


pos4:=pos('tippstring=',s);
trenn:=pos('|',s);
ts:=copy(s, pos4+11,length(s));
showmessage(ts);


end;

Das er mir die Ergebnisse in Showmessage ausgibt war nur zu testzwecken.

Jetzt möchte ich die Funktion aber so umschreiben, das wenn ich die Funktion aufrufe

getstring(....) möchte ich dir Funktion genau sagen welcher dieser Informationen er mir als Rückgabewert ausgeben soll.

z.B getstring('string', spieltag) ausgeben soll er mir dann "1" oder "Spieltag=1".

Ich denke da kommt das ins spiel "AWas : TMeinTyp)" nur wie baue ich diese Klasse auf um mein Problem zu realisieren.