Hallo liebe Delphi-Praxis Mitglieder
Ich habe ein kleines Problem, wo ich mal wieder eure Hilfe brauche. Ich will einen String in ein bestimmtes Format bekommen. Der String könnte z.B. so in die Funktion reinkommen.
Zitat:
BORKUM{61}, BLA2{60}, REL{62}, EN/NORD{72}, ESSEN{59}, TRINKEN{70}, HERNE{71}, HSK1{67}, MAMA123{65}, KW/DINSL{64}, OBERHAUSEN{66}, EN/SÜD{73}, KW/MOERS{63}, HSK2{68}, HSK3{69}
Folgende Funktion habe ich dafür vorgefunden. Was ich erreichen will, ist das der String, der am Ende rauskommt auch damit zurecht kommt, wenn in dem Namen vor der geschweiften Klammer auch evtl ein Komma oder ein Leerzeichen vorkommt. Also das z.b. der Input
ESS,EN{59}, TRIN KEN{70} am Ende
ESS,EN, TRIN KEN ergibt.
Ist das mit einfachen Mitteln möglich? Mir fehlt dafür leider ordentlich Basiswissen von Delphi.
Ach ja, wichtige Information, ich arbeite hier mit Delphi 7 Professional.
Schon mal vielen Dank im voraus und nun folgt der bisherige Code, der zwar ansich gut funktioniert aber mit Kommas und Leerzeichen im Namen nicht zurecht kommt.
Gruß Michael
Delphi-Quellcode:
function getSender(List: Boolean; Value: String): String;
(* Wandelt einen String mit SenderId in eine Senderliste oder
einen kommagetrennen SenderSting ohne SenderId *)
Delphi-Quellcode:
function getSender(List: Boolean; Value: String): String;
var Sl : TStringlist;
S : String;
i : Integer;
begin
Sl := TStringlist.Create;
sl.Text := Value;
Result := '';
if sl.Count > 0 then
begin
S := Sl[0]; // Falls Text mehrzeilig
sl.CommaText := S;
for i := sl.Count -1 downto 0 do
if pos('{', Sl[i]) > 0 then begin
Sl[i] := CopyBis('{', SL[i]);
end
else sl.Delete(i);
if List then Result := Sl.Text
else begin
Result := sl[0];
for i := 1 to sl.Count -1 do Result := Result + ', ' + Sl[i];
end;
end;
end;