Ja das funktioniert im Prinzip sogar schon, den erst jetzt kann es einen Rückgabewert liefern.
Allerdings ist das ganze noch ein wenig mit Fehlern bestückt.
Könnte mir vielleicht mal jemand der Zeit und Lust hat seine ICQ / Email zukommen lassen?
Dann sende ich einmal den Kompletten Quellcode
Mfg.
Teyhouse
/Edit:
Hänge noch an dieser Stelle:
result := result + (Name, ' = ', Resulty);
Fehlerausgabe:
[Fehler] old.dpr(138): ')' erwartet, aber ',' gefunden