string an bestimmter stelle auslesen

[if_then_Anweisung]

hi, ich weiß dass es das evel. schon gibt, habs aber nicht gefunden. Ich will wisse: wie finde ich heraus welches Zeichen bei einem string zum beispiel an stelle 1 steht.

[DeddyH]

Zeichenvar := Stringvar[1]; [edit] Jeweils "var" hinter die Bezeichner gesetzt, damit es keine Missverständnisse gibt [/edit]

[if_then_Anweisung]

Geht das auch andersrum hab jetzvar1[i]:=var2[length(var1)-i]; und er meint dass der linken seite nichts zugewiesen werden kann.

[DeddyH]

Bei mir geht das. Zeig mal mehr Code.

[if_then_Anweisung]

Da:

Delphi-Quellcode:

memo2.Lines.text:='';
for i:=0 to length(Memo1.Lines.Text) do
  memo2.Lines.text[i] := Memo1.Lines.Text[i];

[DeddyH]

Achso. Mal abgesehen davon, dass das so keinen Sinn macht (Du kannst ja den Text direkt und ohne Schleife zuweisen): bei Strings aus einer TStrings-Liste brauchst Du eine Zwischenvariable.

Delphi-Quellcode:

var s: string;
s := Memo.Lines[1];
s[1] := 'A';
Memo.Lines[i] := s;

So in der Art.

[if_then_Anweisung]

Danke.
Ich weiss dass es so kein sinn macht, es wird auch noch nen verschlüsselungsalgorhytmus eingebeaut.

<edit>
Immer noch der fehler. hier der code

Delphi-Quellcode:

    for i:=0 to length(Memo1.Lines.Text) do begin
      a:=Memo1.Lines.Text[i];
      memo2.Lines.text[i] := a;
    end;

[toms]

Memo1.Lines.Text[i]; Hallo,

Mit Memo1.Lines.Text sprichst du den ganzen Memo Text an!
Dies gibt dir den Character an der Stellt i+1 zurück, vom ganzen Memo Text.

Zitat von if_then_Anweisung:

Danke.
Ich weiss dass es so kein sinn macht, es wird auch noch nen verschlüsselungsalgorhytmus eingebeaut.

<edit>
Immer noch der fehler. hier der code

Delphi-Quellcode:

    for i := 0 to Length(Memo1.Lines.Text) do 
    begin
      a:=Memo1.Lines[i][1];
      memo2.Lines[i] := a;
    end;

[if_then_Anweisung]

Ist richtig, so will ichs ja auch. (Samt enter zeichen und so, soll ja nen verschlüsseler werden.)

[smallsmoker]

[ot]
verschlüsselung würde ich nie zu laut in diesem forum sagen dann gibt es ne riesige diskussion die mit der erkenntnis endet das keine verschlüsselung sicher ist
[/ot]