Zeichen aus String entfernen?

[widowmaker2k7]

Hallo Delphigemeinde

Ich steh wie immer vor einem Problem...
ich habe eine zeichenfolge, die so lang ist wie der benutzer es eingibt(maximal 100 zeichen).
so siehts aus:

Delphi-Quellcode:

var zeichenkette1, zeichenkette2:string[100];
    zeichen1, zeichen2:char;
    userzahl, zaehler1:integer;
begin
  memo1.Clear;
  try
    userzahl := strtoint(edit1.Text);
    zeichen1 := '_';
    zeichen2 := '@';
    zeichenkette1 := '';
    zeichenkette2 := '';

ich mache in einer for schleife soviele "zeichen1" in die "zeichenkette1" wie der benutzer eingegeben hat.

Delphi-Quellcode:

    for zaehler1 := 1 to userzahl do
      begin
        zeichenkette1 := zeichenkette1+zeichen1;
        memo1.lines.add(zeichenkette1);
      end;

ich geb das bei jedem durchlauf wieder im memofeld aus
dann erscheint eben sowas:

_
__
___
____
_____
ich hätts aber gerne genau andersrum. dass meine zeichenkette schon solange ist wie der user angegeben hat und ich einfach die zeichen von der kette wieder abziehe
ist klar, dass "zeichenkette1 := zeichenkette-zeichen1; nicht geht ^^
aber gibts dafür vllt einen anderen befehl? oder eine andere lösung?
vielen dank schon mal

Mfg widowmaker

[DeddyH]

StringReplace, Delete, Copy fallen mir da spontan als Möglichkeiten ein, falls ich Dich richtig verstanden habe.

[widowmaker2k7]

danke aber ich kann bei den befehlen nicht in der delphi hilfe nachschauen, ich benutze vista und es funktionieren dort keine hilfedateien mehr von XP, das ist dreck, kann ich die anwendungen sonst irgendwo nachlesen?

[calculon]

z.B. hier

Gruß
--

[widowmaker2k7]

ahaaa vielen danke ^^

[Medium]

Wenn du einen dynamischen String nähmst, könntest du auch mit SetLength arbeiten.

[Blackheart]

Ohne Hilfe wird das Nix !

[marabu]

Hi,

Zitat:

Zitat von Medium

Wenn du einen dynamischen String nähmst, könntest du auch mit SetLength arbeiten.

das sollte aber unabhängig von der Art des Strings sein.

Delphi-Quellcode:

const
  MAX_CHARS = 100;

type
  TSomeString = string[MAX_CHARS];

var
  s: TSomeString;

begin
  s := StringOfChar('_', SizeOf(TSomeString) - 1);
  SetLength(s, Length(s) - 1);
  // ...
end;

Grüße vom marabu

[DeddyH]

[OT] AFAIK gibt es aber auch einen Patch für Vista, um *.hlp-Dateien anzuzeigen. [/OT]

[widowmaker2k7]

danke leute, ich find das forum hier einfach klasse, hier bekommt man immer sofort geholfen!
das mit dem delete is vllt das was ich suche, ich werd mich selbst mal ein wenig damit befassen, immerhin isses ja hilfe zur selbsthilfe ^^
danke leute schönen abend noch!

mfg

edit: perfekt es klappt alles wies soll ^^
ich liebe programmieren :love: :dp: