Einzelnen Beitrag anzeigen

PierreB
(Gast)

n/a Beiträge
 
#1

String-Bearbeiten (Filtern, Löschen, etc.)

  Alt 11. Mär 2006, 14:06
Moin,

ich steh grad total auf dem Schlauch, vielleicht könnt ihr mir helfen.
Ich habe einen String, der so aufgebaut ist: meintest { test tets; }.
Jetzt möchte ich nur an den Wert vor der {-Klammer kommen, alles was hinter dem ersten Wort ist soll gelöscht werden. Soweit kein Problem, hab ich gut hinbekommen. Wenn jetzt aber zwei {-Klammern nach dem ersten Wort stehen wird eine Klammer nicht gelöscht. Hat jemand ne Idee wieso ? Hier mal mein Code:
Delphi-Quellcode:
var
test : String = 'meintest {{ test tets; }';

procedure TForm2.Button1Click(Sender: TObject);
var
i, x : Integer;
begin
for i := 0 to Length(test) do
if test[i] = '{then x := i;
Delete(test, x, Length(test));
ShowMessage(test);
end;
Als Ergebnis wird mir "meintest {" angezeigt. Wie kann ich das ausbessern ?
Desweiteren würde ich gerne alle Leerzeichen in diesem String löschen, da meine Delphi-Hilfe nicht mehr geht durchforste ich grade das Internet. Danke schonmal,
  Mit Zitat antworten Zitat