Hej!

Nu är det så att jag håller på med att server-klient program, och så har jag komigt till ett stop!
Det är så att från servern, skickar jag en string som inner håller text:
strData := 'Hej{/#\}På{/#\}Dig. Hur är{/#\}Det{/#\}Med dig?'
Alltså som ni ser texten {/#\} ska fungera som en brytare asså på klienten ska den dela denna string och göra den till flera nya strängar.
Så på varje ställe där det står "{/#\}" så ska texten innan bli en ny sträng, Och sen så är det aldrig bästämnt villken text som och hur många "{/#\}" det finns med.
Jag undrar om någon skulle kunna hjälpa mig med denna kod!
Här har jag en liten del av koden som jag har gjort men den kan bara plocka ut 2 "strängar" från texten

var
str1, Text1, Text2, Text3: String;
begin
str1 := 'Hej{/#\}På{/#\}Dig.{/#\}Hur är{/#\}Det med dig{/#\}då?';
Text1 := Copy(str1, 1, (Pos('{/#\}', str1)) -1);
Text2 := Copy(str1, (Pos('{/#\}', str1) + 5), (Length(Text1) - 5 + (Pos('{/#\}', str1))));
Text3 := Copy(str1, (Pos('{/#\}', str1) + 5), (Pos('{/#\}',Text2) - (Pos('', str1))));

Kommer inte längre än så det skulle vara hyggligt om någon hjälpte mig med detta!

Skulle detta fungera för dig?

var
StrList: TStringList;
Str: String;
begin
Str := 'Hej{/#\}På{/#\}Dig. Hur är{/#\}Det{/#\}Med dig?';
Str := StringReplace(Str, '{/#\}', '§', [rfReplaceAll]); // Byt ut {/#\} mot § (eller annat udda tecken)
StrList := TStringList.Create;
StrList.Delimiter := '§';
Strlist.DelimitedText := Str; // Parsar Str och delar upp strängen vid §
// Hantera texten....
StrList.Free;
end;