zeichen in string suchen und ab da in variable speichern

[dorisdoloris]

Hi

Wie kann ich in einem String ein bestimmtes Zeichen zuchen und dann ab dort diesen zerlegen ?


Beispiel:

var sAlt, sNeu: String;


sAlt := 'ABCDE?FGHIJKLMNOPQRSTUVWXYZ';


jetzt möchte ich das die Variable 'sNeu' alles was nach dem '?' kommt übergeben wird wie kann ich das realisieren ?


lg: doris

[SirThornberry]

du suchst einfach mit "pos" das Fragezeichen und weißt dann mit "copy" die Zeischen ab dieser Position dem neuen String zu

[PierreB]

Pos, Copy, Delete.

Oder die oben genannten Begriffe in der Delphi-Hilfe nachgucken.

[malo]

Ich schlage dir eine TStringList vor. Dort gibt es die Eigenschaften delimiter und DelimitedText. Etwa so (ungeteste):

Delphi-Quellcode:

var sAlt, sNeu: string;
{...}
procedure parse_string(s: string);
var SL: TStringList;
begin
  try
    SL.Create;
    SL.Delimiter := '?';
    SL.DelimitedText := sAlt;
    sNeu := SL.Strings[1]; //2. Eintrag, also das, was direkt nach dem ersten "?" kommt
  finally
    SL.Free;
  end;
end;

;)

[dorisdoloris]

Ich habe es jetzt so gelöst vielleicht nicht die beste Lösung aber es geht ;-)


var sAlt,sNeu: String;

sAlt := 'ABCDE?FGHIJKLMNOPQRSTUVWXYZ';

while pos('?',sAlt) <> 0 do
begin
ListBox1.Items.Add(copy(sAlt,1,pos('?',sAlt)-1));
delete(sAlt,1,pos('?',sAlt));
end;
ListBox1.Items.Add(sAlt);

sNeu := ListBox1.Items.Strings[1];


wer bessere Vorschläge hat immer her damit :-)

lg: doris

[Dax]

Wie wärs mit Explode?

[dorisdoloris]

ganz großen DANK an euch allen !!

lg: doris