meine StrCharRemove geht nich...

[a3rosol]

ich mal wieder :)
tja wie der titel sagt...

Delphi-Quellcode:

function StrCharRemove(wort: string; C: Char): string;
var
  H: Integer;
begin
  for H := 1 to Length(wort) do
    if wort[H] = C then
      StringReplace(wort, C, '', []);
      Inc(H);
end;

ein zeichen wird eingegeben,nach dem die funktion suchen soll
wenn das zeichen gefunden wird soll es mit '' (also mit leerem char) ersetzt werden
das problem ist: es löscht den kompletten string
ich hab das blöde gefühl dass es mit dem '' zu tun hat

[mkinzler]

1. die Schleife ist überflüssig.
2. das inc() ist überflüssig
3. Also ist eigentlich die ganze Funktion überflüsseig

Delphi-Quellcode:

function StrCharRemove(wort: string; C: Char): string;
begin
    result := StringReplace(wort, C, '', [rfReplaceAll]);
end;

[a3rosol]

Zitat:

Zitat von mkinzler

1. die Schleife ist überflüssig.
2. das inc() ist überflüssig
3. Also ist eigentlich die ganze Funktion überflüsseig

Delphi-Quellcode:

function StrCharRemove(wort: string; C: Char): string;
begin
    result := StringReplace(wort, C, '', [rfReplaceAll]);
end;

nett ausgedrückt :-D
danke, ich wusste nicht dass man rfreplaceall schreiben kann...

€dit: weißt du zufällig wie man nen string in umgekehrter reihenfolge ausgeben kann?

[mkinzler]

Du siehst es ist manchmal ratsam die Hilfe bach möglichen Paramertern zu fragen.
Und warum die manuelle Inkrementierung (doppelt) falsch ist wei0t du hoffentlich auch.

[a3rosol]

Zitat:

Zitat von mkinzler

Du siehst es ist manchmal ratsam die Hilfe bach möglichen Paramertern zu fragen.
Und warum die manuelle Inkrementierung (doppelt) falsch ist wei0t du hoffentlich auch.

stimmt... for inkrementiert ja automatisch :wall: aber ich hab ne andere funktion als vorlage benutzt deswegen kam das so blöd...

[mkinzler]

Ja und es müsste ja eher ein dec sein. Sonst würde Eine Ersetzung von l in 'hallo' 'halo' statt 'Hao' ergeben.
Das das Ergebnis ein Leerstring war, lag am fehlen resultes.
Das Umdrehen des Strings erreichst du einfach durch eine umgekehrte Schleife

[a3rosol]

umgekehrte schleife?
ich weiß was du meinst (den string in einer schleife umdrehen) aber wie mach ich das quellcodemäßig?

Delphi-Quellcode:

for i := 1 to Length(wort) do

und dann?

[mkinzler]

Nein

Delphi-Quellcode:

s := '' 
for i := Length( wort) downto 1 do
    s := s + wort[i];

[Luckie]

Zitat:

Zitat von mkinzler

Und warum die manuelle Inkrementierung (doppelt) falsch ist wei0t du hoffentlich auch.

Wundert mich eigentlich, dass das der Compiler schluckt.

[Cyberbob]

Warum den das Luckie. Er hat das Inc(I) doch nach der Schleife stehen! Das geht ohne Probleme, auch wenns unsinn ist!

[a3rosol]

danke für eure hilfe :dp:

[mkinzler]

Stimmt. Hat man durch das Einrücken aber nicht gleich gesehen.

[a3rosol]

das inc() war aber in dem falle trotzdem sinnlos

[grenzgaenger]

oder man nimmt 'ne funktion...

Delphi-Quellcode:

aText=ReverseString('abcdef');

[mkinzler]

Zitat:

Zitat von grenzgaenger

oder man nimmt 'ne funktion...

Delphi-Quellcode:

aText=ReverseString('abcdef');

Dann aber besser

Delphi-Quellcode:

aText:=ReverseString('abcdef');

[Cyberbob]

eieiei, arbeitet hier jemand mit C?