Hi ich hab ein Problem beim auslesen eines String. Ich hab hier schon gesuch, aber nichts gefunden.
Das Problem ist folgendes:
ich möchte einen string auslesen, der in etwa so aussieht:
Zahl;Zahl:Zahl|Zahl;Zahl:Zahl| und so weiter
*Zahl* steht für eine beliebig große integer.
jede Zahl ist unterschiedlich
Hier ist der betreffende Teil des Quellcodes:
Zitat:
procedure TGeheimcodeForm.BitButtonEntschluesselnClick(Sende r: TObject);
Var
i,i2,i3,i4, Buffer, buchstabencount, Zahl1, Zahl2, Zahl3 : integer;
Buffer2, ZahlZufall1, ZahlZufall2, Speicher, x1, x2, x3:string;
begin
SPeicher:=Geheimcodetext.Text;
Zahlzufall1:=''; Zahlzufall2:=''; FOrm2.OriginalText.Text:=''; i2:=0; buchstabencount:=0;
for i:=0 to length(Geheimcodetext.text)do
if Geheimcodetext.Text[i]='|' then buchstabencount:=buchstabencount + 1 ;
for i2:=1 to buchstabencount do begin
i:=0;
x1:=(GetWordOfAnsiString1(SPeicher,1));
for i:=0 to length(x1)+1 do begin
delete(SPeicher,1,1); end;
i3:=0;
x2:=(GetWordOfAnsiString2(Speicher,1));
for i3:=0 to length(x3)+1 do begin
delete(SPeicher,1,1); end;
i4:=0;
x3:=(GetWordOfAnsiString3(SPeicher,1));
for i4:=0 to length(x3)+1 do begin
delete(SPeicher,1,1); end;
i:=0; SPeicher:='';
Zahl1:= strtoint(x1); Zahl2:= strtoint(x2); Zahl3:= strtoint(x3);
buffer:= (Zahl2-Zahl1);
buffer:= trunc(buffer/Zahl3);
x1:=''; x2:=''; x3:='';
showmessage(showmessage);
end;
end;
für das auslesen der Wörter hab ich als Funktion folgende benutzt:
Zitat:
Function GetWordOfAnsiString3(Text : string; WordPos : Word): string;
var
p : PChar;
begin
p := PChar(Text);
repeat
Dec(WordPos);
while p^ <> '|'
do
begin
if WordPos = 0 then
Result := Result + p^;
Inc(p);
end;
if WordPos = 0
then Exit;
Inc(p);
until p^ = '|';
end;
Ich habe drei dieser Funktionen, jeh eine, die auf ein anderes Zeichen (also ; : | )als Wortende reagiert.
In dem Quelltext oben wird (wenn es klappen würde) erst Zahl1 ausgelesen und in die Variable x1 eingespeichert, dann wird Zahl1 und Trennzeichen gelöscht.
Das gleiche wird dann mit der zweiten und dritten gemacht.
Die drei Zahlen werden dann verrechnet, und diese Zahl ausgegeben. Das wiederholt sich für die nächsten drei zahlen und so weiter.
nur irgendwie klappt das nicht.
entweder hat Delphi ein Problem mit den Trennzeichen und löscht es nicht (fehlermeldung: ;Zahl ist keine integer) oder es kommt eine Fehlermeldung in der nicht mehr als
"
steht
könnt ihr mir helfen? Bittebitte
