Hi
Ich glaube das was du suchst sollte in etwa so aussehen.
Habe das ganze nicht getestet, können also noch ein paar kleine Fehler drin sein!
Delphi-Quellcode:
function decode(InStr:string);
var
port, message, UIN:String;
begin
//InStr:=UIN10000001PORT6711MESSAGEnachrichtdesUsers
port:=copy(InStr, 15, 4 ); //port->6711
UIN:=copy(InStr, 3, 8 ); //UIN->10000001
Message:=copy(InStr, 26, 18 ); //Message:=nachrichtdesUsers
end;
Kurz zum copy Befehl:
copy(EingangsString aus dem Kopiert werden soll, Ab welcher Position kopiert werden soll, länge des zu kopierenden abschnittes);
MfG
Saladin
[edit=sakura]Delphi-Tags gesetzt. Mfg, sakura[/edit]