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