OK, wie sieht denn dann der Aufruf aus meinem Programm aus?
Ich möchte diese Funktion/Prozedur auslagern, da ich diese von mehreren Stellen aufrufen möchte.
Ich muss doch dann noch TMyPosNummer an SplitPosNummer übergeben
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
SplitPosNummer(Edit1.Text); //????????????
ShowMessage('PosNummer= '+IntToStr(PosNummer.myPOS)+', APos= '+PosNummer.myAPOS);
end;
Übrigens hab ich nur Kleinbuchstaben und die eckigen Klammern hab ich wie folgt ergänzt.
Delphi-Quellcode:
procedure SplitPosNummer(PosNr: string; var mypos: TMyPosNummer);
var i: integer;
c: Char;
s: string;
begin
s := PosNr;
if (s[Length(s)] in ['a'..'z']) then
begin
// Letztes Zeichen ist ein Buchstabe
c := s[Length(s)];
i := strtoint(LeftStr(s, length(s) - 1));
end
else
begin
i := strtoint(s);
c := #13; // Default
end;
mypos.myPOS := i;
mypos.myAPOS := c;
end;