Thema: Delphi String zerlegen

Einzelnen Beitrag anzeigen

Nicolai1234

Registriert seit: 21. Feb 2004
1.008 Beiträge
 
Turbo Delphi für Win32
 
#6

Re: String zerlegen

  Alt 8. Apr 2004, 17:12
Ich würde es so machen!
Ich habe mal eine function als beispiel geschrieben und getestet und sie funktioniert:
Aufrufen kannst du sie mit ... := zerlegen(s,ZAHL)
s ist der String der zerlegt werden soll.
Zahl gibt den Wert an, der zurückkommen soll also
  • 1 für Text
  • 2 für Zahl
  • 3 für Wert
  • 4 für Zeichen

Delphi-Quellcode:
function zerlegen(quelle:string;welcher:integer):string;
var i,i2:integer;
    s: Array[1..4] of String;
begin
i := 1;
i2 :=1;
repeat
   while quelle[i] <> ';do
        begin
        s[i2] := s[i2] + quelle[i];
        inc(i);
        end;
   i := i+3;
   inc(i2);
until i2 = 5;
result := s[welcher];
end;


Wenn du den folgenden Teil in eine procedure einbaust das ist s[1] der Text, s[2] die Zahl, s[3] der Wert und s[4] das Zeichen:
Delphi-Quellcode:
var i,i2:integer;
    s: Array[1..4] of String;

...


i := 1;
i2 :=1;
repeat
   while quelle[i] <> ';do
        begin
        s[i2] := s[i2] + quelle[i];
        inc(i);
        end;
   i := i+3;
   inc(i2);
until i2 = 5;
  Mit Zitat antworten Zitat