Forum: Object-Pascal / Delphi-Language
Delphi
by littleDave,
3. Jul 2008
Ich hab mal den Quelltext umgeschrieben, so dass deine beiden Beispiele funktionieren. Ob alles wirklich so funktioniert, wie du es willst, weiß ich nicht:
function Zaehlen(s: string): string;
var c: char;
i: integer;
begin
if s <> '' then
begin
i := length(s);
c := s;
if c in then
Forum: Object-Pascal / Delphi-Language
Delphi
by littleDave,
3. Jul 2008
Mir schaut das ganze etwas komisch aus. Was willst du mit den Quelltext bezwecken? Versuch mal folgende Tabelle für mich zu füllen, damit ich versteh, was du meinst
Eingabe Ausgabe Erwartete Ausgabe
---------------------------------------------------
'123' '124' ???
'abc' 'abd' ???
'xyz' 'xya' ???
'789' ...