Delphi-Quellcode:
Length('abcd') = 4
Copy('abcdef',2,2) = 'bc'
Pos('d','abcde') = 4
Delete('abcde',2,2) = 'ade' ;; wobei hier eine Variable benutzt werden muss, da Delet keinen Rückgabeparameter hat
Daraus solle man ja alles ableiten können.
Aufgabe: Schreibe eine Funktion die einen gegebenen String umdreht
Delphi-Quellcode:
function drehe(s: String): String;
var i: integer;
begin
Result := '';
for i := 1 to Length(s) do
begin
Result := Copy(s,1,1) + Result;
Delete(s,1,1);
end;
end;
Aufgabe: Zählen sie die vorkommen von dem String A in einem String S
Delphi-Quellcode:
function suche(s, a: String) : integer;
begin
Result := 0;
for i := 1 to Length(s)-length(a)+1 do
begin
if Copy(s,i,length(a)) = a then
Result := Result+1;
end;
end;
Und ja ich weiß man kann die Aufgaebn auch ander und besonders einfacher lösen,
aber irgendiwe musste ich die Funktionen ja einbauen.
Mir fiel halt nichts besseres ein
