String alle X Zeichen splitten

[hoika]

Hallo,

wenn jedes Zeichen durch 4 andere ersetzt wurde,
nimmst du dir den String und trennst immer 4 Zeichen ab per Copy.

Bsp:
a=1234
b=5678

abb sieht also so aus
String2:= '123456785678'

Jetzt per

Delphi-Quellcode:

sTemp:= Copy(String2, 1, 4);  -> 1234 -> ergibt a
String2:= Copy(String2, 5, Length(String2)-4);    String2 ist jetzt noch 56785678

sTemp:= Copy(String2, 1, 4);  -> 5678 -> ergibt 5
String2:= Copy(String2, 5, Length(String2)-4);    String2 ist jetzt noch 5678

usw.

solange bis String2 leer ist.


Das ganze kommt in eine Schleife.

Nach 1/2 Jahren Informatik sollte das machbar sein.

Ansatz:

Delphi-Quellcode:

while String2<>'' do
begin
  sTemp:= Copy(String2, 1, 4);  -> 1234 -> ergibt a

  String2:= Copy(String2, 5, Length(String2)-4);    String2 ist jetzt noch 56785678

  usw.
end;

Du könntest auch was fertiges benutzen (RLE z.B.)


Heiko