Functions-Problem

[Die Muhkuh]

Hi,

zuerst einmal verwendest Du eine Variable namens x, die nirgendwo deklariert ist. Zum Zweiten ist Dein Code sehr unperformant. Da kann man deutlich besser machen:

Delphi-Quellcode:

function GVersion(s: String): String;
var
  I: Integer;
begin
  I := Pos('.', s);
  while I > 0 do
  begin
    Delete(s, I, 1);
    I := Pos('.', s);
  end;

  result := s;
end;