Stringliste nach Zeichen trennen und auslesen

[Sir Rufo]

Zitat von Popov:

Zitat von Sir Rufo:

aua

Im Leben ist alles Möglich, sogar eine If-Endlos-Schleife

Delphi-Quellcode:

label
  a;
begin
  a: if True then Goto a;
end;

Das ist doppelt aua, denn das Schleifenelement ist nicht if sondern goto und label

if ist und bleibt eine Bedingung und wird auch nicht durch (un-)geschickte Kombination zu einer Schleife

[Neutral General]

Müsste es nicht reichen wenn er bei seiner Stringliste einfach

StringList.StrictDelimiter := true; setzt?

[DeddyH]

StrictDelimiter gab es unter Delphi 7 noch nicht.

[Bummi]

Wie sollte dem Delimiter (Char) denn *SIGNAL* zugewiesen werden?

oder habe ich etwas verpasst ....

[MicA]

Hallo und Danke schonmal für die vielen Antworten!

Erstmal: es sollen alle Zeilen weiterverarbeitet werden! *SIGNAL* ist nur das Trennzeichen!

Zusätzlich sollte ich noch ergänzen, dass ich nicht wirklich ein Programmierer bin: hab Elektrotechnik studiert und bis jetzt nur mit etwas C Code gearbeitet. Deshalb entschuldige ich mich schonmal im Voraus, falls ein Ansatz von mir nicht wirklich Sinn macht! Und das mit der if-Schleife...

Der Ansatz mit Pos und PosEx würde mir ganz gut gefallen. hab auch schon rumprobiert, aber die Funktion PosEx kann ich nicht aufrufen, offensichtlich ist die in meiner Delphi Version nicht enthalten!? Gibt es da eine Möglichkeit die anderweitig hinzuzufügen?

StrictDelimiter funktioniert nicht, das habe ich schon probiert.

Gruß Michael

[Gollum]

Hallo,

PosEx gibt es unter D7. Du musst die Unit StrUtils einbinden.

[DeddyH]

Wie wäre es denn mit
Stringlist.Text := StringReplace(Stringlist.Text, '*SIGNAL*', sLineBreak, [rfReplaceAll, rfIgnoreCase]); oder so in der Art?

[MicA]

Wie genau binde ich diese Unit ein? Ich sollte auch noch erwähnen, dass ich das EDA Programm Altium verwende und versuche ein Script zu erstellen. Ist es bei Altium überhaupt möglich eine Unit einzubinden?

[MicA]

Zitat:

Stringlist.Text := StringReplace(Stringlist.Text, '*SIGNAL*', sLineBreak, [rfReplaceAll, rfIgnoreCase]); oder so in der Art?

Dafür bekomme ich eine Fehlermeldung: Could not convert variant of type (Array Variant) into type (Integer)

[p80286]

Zitat von MicA:

Wie genau binde ich diese Unit ein? Ich sollte auch noch erwähnen, dass ich das EDA Programm Altium verwende und versuche ein Script zu erstellen. Ist es bei Altium überhaupt möglich eine Unit einzubinden?

ÄH? Was denn nun? Delphi oder nicht Delphi, das ist hier die Frage.

Gruß
K-H