Strings separieren

[Schwedenbitter]

Hallo,

ich schreibe eine Programm mit php, das über die Zwischenablage Parameter an ein Delphiprogramm übergibt. Leider gelingt es mir nicht, z.B. mein Delphiprogramm gleich mit mehreren Parameterm zu starten. Denn ich verwende den FireFox ohne DirectX-Plugin. Falls also jemand schon dafür eine Lösung kennt: Bitte (an mich) weitersagen.

Nun zu meiner Frage: Da ich mehrere Parameter (auch Zahlen) übergebe, habe ich das in mehreren Zeilen gemacht, wobei jede Zeile ein neuer Parameter ist. Das ist für den, der mir mit phpIch habe es jetzt so versucht:

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
Var
   I            : Integer;
   S            : String;
   Ablage      : TClipBoard;
Begin
   Try
      Ablage:=TClipBoard.Create;
      S:=Ablage.AsText;
      For I:=1 To Pred(Length(S)) Do
      Begin
         If IsDelimiter(#13,S,Pred(I)+':Ende') Then
         Begin
            // Erst anzeigen
            ShowMessage(Copy(S,1,I));
            // Dann löschen inkl. #10
            Delete(S,1,Succ(I));
         End;
      End;
      If Length(S)<>0 Then ShowMessage(S);
   Finally
      Ablage.Free;
   End;
End;

Leider wird nicht korrekt getrennt.
Handelt es sich bei den Zeilen um reinen Text, dann klappt es. Wenn aber Zahlen dabei sind, funktioniert es nicht.
Meine Beispiel-Zwischenablage

Zitat:

0005/08
200
9
tbdBW
1
C:\Eigene Dateien\Test

bringt 3 Messages. Und zwar:

• 0005/08:Ende
• 200
  9
  tbdBW:Ende
• 1
  C:\Eigene Dateien\Test

Ich habe übrigens dasselbe Phänomen, wenn ich alles in einer Zeile in die Zwischenablage bringe und als Separator z.B. '|' verwende.

Was mache ich da falsch?

[Christian Seehase]

Moin Schwedenbitter,

warum nicht so:

Delphi-Quellcode:

var
  sl : TStringList;

Begin
   sl := TStringList.Create;
   Try
     sl.Text := Clipboard.AsText;
   Finally
      sl.Free;
   End;
End;

Wenn Du die Unit Clipbrd einbindest, hast Du automatisch zugriff über die Variable Clipboard, und musst es nicht selber erzeugen.
Übrigens gehört das try hinter die Create-Zeile, denn erst, wenn diese erfolgreich ausgeführt wurde, wurde die Resource belegt, und erst dann sollte man die Freigabe absichern.
BTW: Die Zeile mit IsDelimiter kann so nicht kompiliert werden. Wie sieht sie denn tatsächlich aus?