Hallo Leute

Meine Frage :

Ich habe einen Text der sich in einem Memo befindet in einen String geladen, und ich will Zeichen entfernen:

markieren

Delphi-Quellcode:

for n:=1 to lenght[s] do
begin
if s[n]=' ' then s[n]:='_'  <--------FUNKTIONIERT
if s[n]='-' then s[n]:=''   <-------------Fehler string and char WARUM ?? (Soll nur gelöscht werden)
end;

Hi,

benutz doch die Delete-Funktion

Die wie funktioniert ?

kommt schon bitte HILFE

Hi!

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var str: string;
begin
str:='Test';
delete(str, 1,2);
showmessage(str); //st
end;

Zitat von OH:

Delphi-Syntax:

procedure Delete(var S: string; Index, Count:Integer);

Beschreibung

In Delphi entfernt Delete, beginnend mit S[Index], Count Zeichen aus dem String S. S ist eine String-Variable. Index und Count sind Integer-Ausdrücke.

Wenn index größer als die Länge von String oder kleiner als 1 ist, werden keine Zeichen gelöscht.

Werden mit Count mehr Zeichen angegeben, als beginnend bei Index im String vorhanden sind, wird der Rest des Strings gelöscht. Wenn Count kleiner oder gleich 0 ist, werden keine Zeichen gelöscht.

Ciao fkerber

Edit: Du pushst nach 7 Minuten???

@Bundy:
Das "pushen" eigener Threads nach so kurzer Zeit (mit 7 Minuten dürftest Du trauriger Rekordhalter sein!) ist nicht erwünscht.

hy Danke dir

Mit "String[Index]" greifst Du nunmal auf einen einzelnen Char aus einer Kette zu, wenn Du nun eine Zuweisung der form "String[Index] :=" machst, erwartet Delphi auf der rechten Seite auch einen Char. Deine zwei Hochkommas, sind aber kein Char, sondern ein leerer String - daher knallt es.
wenn Du nicht delete nutzen möchtes, kannst Du sowas basteln:

zusammenfalten · markieren

Delphi-Quellcode:

function CleanUpString(Value : String;
                       SearchChars : Array of Char;
                       ReplaceChars: Array of Char):String;
var i,j : Integer;
    WasReplaced : Boolean;
begin
  for i:=1 to length(Value) do begin
    WasReplaced := False;
    for j := 0 to High(SearchChars) do begin
      if Value[i] = SearchChars[j] then begin
        WasReplaced := True;
        if ReplaceChars[j] <> #0 then begin
          Result := Result+ReplaceChars[j];
          Break;
        end;
      end;
    end; // for j
    if not WasReplaced then Result := Result+Value[i];
  end; //for i
end;

Anwendung:

markieren

Delphi-Quellcode:

var MyString : String;
begin
  MyString := 'Das ist ein Test-String';
  MyString := CleanUpString(MyString,[' ','-'],['_',#0]);

Gruß

[Edit]immer wenn man zu hastig ist...[/Edit]