Hallo zusammen!
Hab die Boardsuche und Google schon bemüht, aber nichts gefunden.
Ich möchte ganz einfach aus einem String wie z.b. "blablabla'dfdf'" aus der Zwischenablage ab dem ersten Hochkomma den String auslesen, und in einen Variable scheiben.
Bin schon halber am verzweifeln, weil ich den Fehler ned finden kann:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var
I,k:Integer;
begin
if Clipboard.Hasformat(CF_TEXT) then
begin
c := clipboard.AsText;
if y = false then exit; // sicherung, dass die schleife nur 1 mal durchlaufen wird
for i:=0 to length(c) do
begin
if c[i] = '''' then //sobald ein Hochkomma vorhanden ist...
begin
for k := 0 to length(c)-2 do //...wird der string ab da in die variable d geschrieben
begin
d[k] := c[i+1]; //c+1 damit der das erste hochkomma nicht mitgeschrieben wird
//und length(c)-2 damit das 2te hochkomma nicht mitgeschrieben wird
end;
y:= false; //sicherung wird gesetzt
end;
end;
end;
edit1.text := d;
end;
Aber es funktioniert nicht, d ist leer also ' ' auch wenn man davor d einen wert zuweist.
Des weitern kommt dann noch ein Fehler, wenn man das Programm dann beendet: "Exeption EInvalidPointer in Modul Project1.exe...."
Hat jemand ne Idee?