Functions-Problem

[oldmax]

Hi
Eure Programmhilfen in Ehren, aber die Frage lautet: Was mache ich falsch und da ist der Hinweis auf die nicht deklarierte Variabe x die einzig richtige Antwort. Das es besser geht, keine Frage, aber es muß doch eigentlich auf den Fehler hingewiesen werden...
Sorry, wenns ein bißchen blöd und altklug klingt, das ist nicht meine Absicht, aber es ist noch sehr früh und ich bin in Zeitdruck...
So ist die Function richtig..

Delphi-Quellcode:

function GVersion(s: String): String; 
Var x      : String;  // x deklarieren
begin 
  x:=s; // x initialisieren
  while Pos('.', x) > 0 do 
    x[Pos('.', s)] := ' '; 
  while Pos(' ', x) > 0 do 
    Delete(x, Pos(' ', x), 1); 
    result := x; 
end;

An der Formatierung ist eigentlich nicht wirklich was auszusetzen, allerdings ist der Umweg über das Leerzeichen nicht notwendig.
Gruß oldmax