Ah, ok, jetzt verstehe ich das mal. Tja, in meinem Fall hätte ich keine Ahnung, wie ich da mit Pointern arbeiten soll -, dafür fehlt mir die Erfahrung.. Ich kannte Pointer bislang nur insofern, als damit ein Zeiger auf ein komplettes Datum (also z.B. eine Integer, ein String o.ä.) verschoben werden kann. Wie aber soll man *innerhalb* eines Datums (wie eine Textdatei) einen Zeiger verschieben? Habt Ihr da zufällig einen Link fürs erste Reinschauen zur Hand?
Danke und schöne Grüße,
frieder
Ist nicht so schwer, wie man sich das vielleicht denken mag.
Beispiel:
Delphi-Quellcode:
var
MyString: String;
MyPtr: Pointer;
begin
MyString := 'Hallo Welt';
GetMem(MyPtr, Length(MyString));
try
Move(MyString[1], MyPtr^, Length(MyString)); // "Hallo Welt" steht nun im Pointer
Finalize(MyString);
SetLength(MyString, 5);
Move(MyPtr^, MyString[1], 5); // "Hallo" wird aus dem Pointer kopiert
finally
FreeMem(MyPtr);
end;
end;
Oder:
Delphi-Quellcode:
var
MyString: String;
MyPtr: PChar;
i, j: Integer;
Found: Boolean;
begin
MyString := '12345|Test';
GetMem(MyPtr, Length(MyString));
i := Integer(MyPtr); // Addresse vom Pointer merken
try
Move(MyString[1], MyPtr^, Length(MyString));
Found := FALSE;
j := 1;
repeat
if MyPtr^ = '|' then
Found := TRUE; // Trennzeichen gefunden, irgendwas machen
Inc(MyPtr^);
Inc(j);
until Found or (j > Length(MyString));
finally
MyPtr := PByte(i); // Addresse vom Pointer wiederherstellen
FreeMem(MyPtr);
end;
end;